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HET VOLGENDE NUMMER, . 
in verband met de vakantie zal de komende ACORN NIEUWS begin augustus 


verschijnen. 

HET VOORPLAATJE 

Het voorplaatje betreft de fruitmachine welke in het volgende nummer geplaatst 
zal worden. 


REGIOSCHIJF NR. 4as 


ACORN 2C6D O068 BO288 DAZ A‚N. 1985 nr.4 blz,91 
CHARCOD 8808 AFAF O@CBB BAS A‚N, 1985 nr.4 blz.91 
SPRPRNT 8308 AFAF OOBFD B12 A.N, 1985 nr,4 blz.7i 
559,8 2908 C2B2 DODFI BIE A.‚N. 1985 nr,‚4 biz.88 
SUPERPR 2506 2B88 21542 Q2C A‚N. 1985 nr.4 blz.71 


nr.4 blz.75 
ar.4 blz.75 


CXDATAh &BO8 6809 OIJFF G40 
CX-2.7h Ad2D A0ZO OBFFF 258 


a 
@ 
a 


PPPPPPP>rrrr 
ZEEEZEZZERIEEZ 
pe] 

@ 

a 


HEKS 820 AFAF GA2FE B68 A‚N, 1985 nr.4 blz.7 
FLOW 2900 AFAF 00374 O6B A‚N. 1985 nr.4 blz,é 
UNFLDW 2702 AFAF 80326 B&F A‚N, 1985 nr.4 blz.& 
BOXDUMP 8208 C2B2 OBCAB Q7A A‚N, 1985 nr.4 blz.1B 


REGIOSCHIJF NR. 4b: 


#GDUMP 2909 CZB2 BA6C2 BA2 A‚N, 1985 nr.4 blz.54 
#BRANSRC 2900 C2B2 QZ2D77 G89 A‚N. 1985 nr.4 bìz,58 
#BRANDEM 2900 C2B2 862638 037 A‚N. 1985 nr.4 blz.58 
#DSCLI 2908 C2B2 BA46F DIE A‚N. 1985 nr.4 blz,3b 
$SPHINX2 5008 5000 BIAB AAS A‚N, 1985 nr.4 blz. 14 
SSPHINXH 8208 C2B2 O1DF1 075 A‚N, 1985 nr.4 blz.14 
#KOPVJUT 2908 C2B2 DO2FD 891 A.‚N. 1985 nr. blz.97 
#COMBOX 4088 AQ74 D10D8 B94 A‚N. 1985 nr.4 blz.47 
#MASTER 2900 C2B2 BIDID BA4 AN. 1985 nr.4 blz, 40 
#SPHINX1 2900 2900 D2708 OB5 A.N. 1985 nr.4 blz,14 
#BURTIME 2909 C2B2 @1BAA BDC A‚N, 1985 nr.2 blz.24 
#KRUISHO 2908 2908 UI2FF AF7 A‚N. 1985 nr.4 blz.20 
KORIC.SO 2998 AFAF OABI3 184 A‚N, 1985 nr.4 blz.22 
#CS-INFO 2890 AQ71 O48BD 113 A.N. 1985 nr,‚4 blz,73 
#DOBBEL 29089 2998 B13D9 15C AN, 1985 nr.4 blz.44 
CX-3.02 A@B8 ADBD O1ABD 16F A‚N. 1985 nr,4 blz.73 
CX-1,83 1898 1098 @1BED 17F A‚N, 1985 nr‚4 blz.73 


Het programma BURTIME staat wederon op deze schijf aangezien er met de vorige 
iets mis schijnt te zijn. 


RECTIFICATIE: 


In het programma PIE=CHART (zie vorige nummer) dient regel 2529 verwijdert te 
worden. Het programma zal dan perfect lopen. 


PRETTIGE EN ZONNIGE VAKANTIE. 


WAAR KUNNEN We NAAR [UE 





31 MEI 1985 DEN HAAG EXODUSKERK 


28.08 UIR 


t JUN 1985 
18.38 UUR 


5 JUN 1985 
20.08 UUR 
& JUN 1985 
20.38 UUR 


8 JUN 1985 
12.08 UUR 


B JUN 1985 
13,38 UUR 


12 JUN 1985 
29.08 UUR 


13 JUN 1985 
19.58 UUR 


15 JUN 1985 
15.00 UUR 


18 JUN 1985 
20.59 UUR 


19 JUN 1985 
20 JUN 1985 
20.60 UUR 


6 JUL 1985 
13.08 UUR 


BERESTEINLAAN 243 


BELGIE OKACO-CAPENBERGCENTER 
BORSBEEKSE STEENWEG 45. 


ARNHEN T.O. POSTGIRO 

VELPERWEG 56-A (kelder) 
BRABANT GEBOUW B.R.A.N, 
HEUVEL 7 


NOORD-H DE KOPEREN KNOOP 
VAN LIMBURG STIRUM STRAAT 


ZEELAND HOTEL VREDEBEST 
WEMELDINGE. 


TWENTE _MEPA-GEBOUW 
WIERDENSESTRAAT 40 


NOORD DE TREFKOEL 
ZONNELAAN. 


LIMBURG DONDERIE 
DONDERBERGWEG 


BRABANT DE WERFF 
V/D WERFFSTRAAT 


NOORD M van VLISSINGEN 
ACHTER DE GROTE KERK 25 


CENTRUM DE LANTAERN 
UTRECHTSESTRAATWEG 4 


LIMBURG DONDERIE 
DONDERBERGWEG 
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DEN HAAG. 


BOECHOUT (BIJ HOVEN 


ARNHEM 


VORSTENBOSCH. 


AMSTERDAM. 


ALMELO 


GRONINGEN, 


ROERMOND 


EINDHOVEN. 


LEEUWARDEN. 


NIEUWEGEIN. 


RGERMOND 


5 
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FLOW 


Toen ik een backup wilde maken van al 
hiervoor het programma BACKUP van Ronald Boers, deze had aan dit programma reeds 
“prachtig”, maar wat ik het mooiste vond was 


zijn sporen verdiend; in een woords 


mijn schijven 


het overvloeien van het ene naar het andere scherm. 


Vandaar dat ík in het programma op 


zoek ben gegaan 


veroorzaakte; ik heb dat stukje uit het programma gesloopt, en de zaak een klein 


beetje herschreven, en ziedaar: Het programma FLOW, 
van deze routine een z.g. screendump (duur 


U dient als u gebruik wilt maken 





woord voor plaatje) in het geheugen te laden <NIET IN HET VIDEOGEHEUGEN! !tt1 >, 


en daarna de routine gewoon op #2900 te laden; dan na END zegge aen RUN, en U 


dient het beginadres van het plaatje in te voeren. 


Op dat moment gaat het programma aan de 


gang, en copieert het plaatje met stijl 


naar het videogeheug de IMAM'S van het CX-systeen zo gek te krijgen dat ze het 
onderbrengen in bijv. de TURTLES, of CX-DATA) 


18 PROGRAM FLOW 

28 6.123 

38 _(C) TUKKIESOFT 1985 
48 ORGINEEL DOOR R. BOERS 
50 AANGEPAST DOOR Y.E.TUK 


&8 COMMANDO ALS VOLGT GEBRUIKEN: FLOWSO 


70 ER WORDT NI VANAF #5000 
Ba OVERGEVLOEID NAAR DE VDU 

GB _ZEROPAGE ADRESSEN: #70 T/M #75 
100 P.$12°"' 

118 IN. "WAAR ASSEMBLEREN "G 

120 Z=#70;P.$21 

150 242320; 4242424 

148 DIM 555) 








150 FOR 1=8 TO 5 
168 SS(H)=-1 

178 NEXT I 

188 FOR I=1 TO 2 
198 P=Q;E 


200: 550; JSRECFOA; JSRHCAEG 
218 LUX@D;JSR 552 

220 LDX@I; JSR 552 

230 LDXE2; JSR 552 

248 JMP#C5SH;RTS 

250:552 STX 1;5TX 142 

260 LDXEKBOGSTK Z+1 

278 LDX #52;STK 243 

280: 555 LDYe@ 

298 LDA(Z+2) ,Y;STALZ) ,Y 
500 INC 2;INC Z+2;BNE P+6 
318 INC Z+1; INC Z#3 

520 INC Z;INC 2+2;BNE P+6 
338 INC 141; INC 243 

540 INC Z;INC Z+2;BNE P+6 
350 INC Z+1; INC 2+3 

548 LDA Z+1;CMP@#9B; BMI 553 
578 JSRIFBBA;RTS 

380); NEXT;P. $ó 

390 @=0;P."" 

500 P."ROUTINE VAN: #"&0 
A18 P‚" TOT: #°&P'° 

420 END 


18 PROGRAM UNFLOW 

28 6.98 

58 (C) TUKKIESOFT 1985 
48 INVOEREN ALS UNFLOW, WERKT 
58 HETZELFDE ALS FLOW; ALLEEN 
6e DEZE ROUTINE WIST LANGZAAM 
78 HET SCHERM, sss. 
Be ZEROPAGE ADRESSEN: #78 T/M #73 
98 P.$12' 

188 IN. "WAAR ASSEMBLEREN "GQ 
118 Z=#70;P,$21 

128 ?#23=8; ?#24=#24 

130 DIM S5(5) 

148 FOR I=8 TO 5 

150 SS(I)=-1 

168 NEXT 1 

178 FOR I= TO 2 

189 P=0;t 

190: 550 

208 LDXEB;JER S52 

218 LDX@I;JSR 552 

220 LDX@2;JSR SS2 

238 RTS 

248:552 STX Z;STX Z+2 

258 LDXERBD;STX 741 

268 STX 243 

278:555 LDYeD 

280 LDA&B;STA(I) ‚Y 

298 INC Z;INC Z+2;BNE P+6 

308 INC Z+1; INC 2+3 

318 INC Z;INC 2+2;BNE P+6 

328 INC Z+1s INC 2+3 

338 INC Z;INC Z+2;BNE P+6 

348 INC Z+1; INC 243 

358 LDA Z+1;CMP@#9B; BMI S53 

368 JSRHFBBA;RTS 

3701; NEXT; P. $6 

308 @=0;P. '° 

598 P."ROUTINE VAN: #"&Q 

400 P." TOT: &“&P'* 

418 END 





naar de band draaide ik 


naar het deel wat dat 
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AH EE K SS 


Dit programma is geladen op #82 en geeft een listing van bepaalde geheugen 
gedeeltes. Daarbij geeft het programma voor elke nieuwe regel de geheugen plaats 
van het begin van die regel. 'HEKS' heeft mij al veel gemak gelevert, vooral als 
er in een bestaand programma na het laden of tijdens het lopen van dat programma 
rare dingen gebeuren 

‘BEKS' werkt als volgt: 

Het programma vraagt eerst het adres waar gestart moet worden. Als je hier op 
<return> drukt wordt #2908 geselecteerd. Daarna wordt gevraagd of het op de 
printer moet, Zo niet dan kiest het programma zelf de pagemode. Hiernageeft het 
programma een dump in de vorm van een listing met vooraan steeds de 
geheugenplaats van het begin van de regel. Kont hij een karakter tegen dat niet 
in een ietter of getal kan worden omgezet komt er de geïnverteerde '@' te staan. 
Als het programma een ‘TOP’ tegen komt geeft hij het adres van deze TOP en 
vraagt of men nog verder wil gaan. Zo ja toets men ‘J', waarna weer wordt 
gevraagd of er geprint moet worden etc, 

Ket programma is in basic, misschien wil iemand het voor mij nog in assembler 
vertalen zodat het minder plaats in neemt en sneller kan werken. 

Ik hoop dat er mensen zijn die plezier aan deze programma's beleven af er hun 
voordeel meg kunnen doen. 


10 PROGRAM HEKS 
LIREMKRRR RN ENNE K ER KNK NEEN 

12REM* BRAM THIJSSE * 

IJREMÉ A. VERWEIJSTR.20 * 

IAREM4* ALPHEN A/D RIJN * 

1SRENMAAAARE2E-DA-L JET 

20 2#FE=0; E=5 

30 P.$21$2427$4583%6 

40 P. "PRINTER AAN"" 

58 INKEY 1; IFI=CH"J";P.$2815 

55 IFICOCH"J*jP.$14 

&0 ON ERROR A=#2900;G. 80 

78 IN. “START ADRES"A 

75 IF A<25b;A=A#25b 

76 IFAX10000; A=A/10ODER10BB+A/ 1OBX1OHH1DA+ALIED/ 104H10+AL10 
BO N=A 

98 DO 

10@ IF ?N=15 AND N?1=4FF;G. 170 

LID IF2N=15;P. "gN=N+1; Po &N, ?N42564N? 13 N=N425G. 140 
120 IF?NCS2;0=3jP.*"";8=5; 6. 150 

130 IF2N>127;@=3jP."" "5 @=5; 6. 150 

140 P.$?N 

152 N=N+1 











“831 
PEIN#2) "65065 






218 P."WILT U VERDER 2" 

220 INKEY Is IFI<>CH"J";36,270 
230 FP. “PRINTER AAN 7 
240 INKEY IjIFT=CH"J";P. $2 
258 N=N+2 

248 6.90 

270 P.$5$15:END 
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BUSPRINTS 


Onder andere uit interregionale contacten is gebleken dat sommige Atomgebruikers 
zich niet goed een beeld Kunnen vormen van de realisatie van toekomstige 
uitbreidingen. En dat is eigenlijk ook geen wonder, omdat alon in de club 
uitbreidingen worden beschreven en gebouwd waarvan de nabouwer zelf maar moet 
zien waar hij of zij deze precies aansluit. De oplossingen die dan worden 
gekozen varieren van opsteekprintjes en Iosbungelende interfaces aan de VIA 
(PL&) totaan gestapelde kaarten op PL7. Het zal duidelijk zijn dat iedereen op 
deze manier vroeg of laat hopeloos vastloopt, ten eerste vanwege 
ruinteproblemen, maar op een gegeven moment gaan de onvermijdelijk slechte 
contacten van al dat soldeerwerk je parten spelen en ben je vrijwel uitsluitend 
bezig net repareren. Je zult in zo'n geval naar een systeem toe moeten waar het 
een en het ander wat beter geregeld is en meestal wordt in deze situatie het 
rack genoead als oplossing. Dok ik heb hiervoor gekozen en moet zeggen dat het, 
hoewel het nog lang niet "af" is, redelijk ideaal is. Toch wil ík niet iedereen 
domweg zo'n ding aanbevelen en wel omdat het ten eerste nogal prijzig is en ten 
tweede is het zo ruim dat je je moet afvragen of er voldoende emplooi is om het 
een beetje “rendabel” te maken. Er zijn natuurlijk vele alternatieven waarvan ik 
er graag enkele wil noemen. 

Ik ken een paar mensen die het idee geopperd hebben om de meest noodzakelijke 
uitbreidingen in de Atom-kast in te bouwen. Sommigen hebben dit ook 
daadwerkelijk verwezenlijkt. Dezen hebben goed bekeken welke ruimte in de kast 
nog over is (meer dan je denkt) en deze ruimte gevuld met een vreemdsoortig 
gevormd stuk gaatjesprint, waarop vervolgens de meest fantasierijke zaken worden 
gebouwd. Het begint meestal met een RAM-uitbreiding (liefst met 2 6264's), 
gevolgd door een kaart met 5 2764's en Bk RAM (bv. 1 6264) die geschakeld worden 
via de CS- en de adreslijnen, Acht A-blokken op een halve eurokaart. Daarna is 
er nog genoeg ruimte over voor bijvoorbeeld een floppy interface, RS232, 
kleurenuitbreiding + ruisvrij plotten en noem maar op. Als je het in een keer 
bouwt kan er ontzettend veel in de originele kast, Toch lopen deze mensen ook 
een keer vast, Bovendien moet je zo ongeveer in staat zijn een complete computer 
te bouwen, wil je dit tot een goed einde brengen. Het is dus geen echt 
alternatief. 

Wat vaor twee of drie kaarten wel een alternatief is, is de Acorn floppy drive 
‘als je dig hebt). Het schijnt dat er in die enorme behuizing nog plaats is voor 
enkele uitbreidingen, Hoe je die moet aansluiten kan een eigenaar-van-zo’n-ding 
misschien een keertje vertellen, Voer in ieder geval wel alle overtollige warmte 
goed af. 

Wil je meerdere kaarten aansluiten, dan valt ook dit alternatief af, Het enige 
dat er uiteindelijk overblijft, is een bussysteem. In feite is een rack ook een 
bussysteem, maar, zoals gezegd, nogal prijzig. Als we nu die aluminium behuizing 
kunnen weglaten zijn we al een stuk goedkoper uit; we kopen een busprint 
(bijvoorbeeld die van Elektuur (nr.83102 (dec. 'B5))) en solderen daar passende 
connectoren op. Vervolgens sluiten we hem via een verbindingskaartje aan op de 
Atom et voila, prik maar in. Je kunt een voorbeeld zien op de voorkant van 
Elektuur vovember 1983. Bovendien kunnen deze prints eenvoudig gecascadeerd 
worden. Maar.... en reken even mee, de print kost 4 tientjes, de connectoren (in 
dit geval a/c 64p.) 5 piek per stuk (minimumprijs). Er passen acht connectoren 
ep de print, zodat je op 88 gulden uitkomt. Elke kaart die je bouwt, wordt dus 
een tientje duurder dan voorzien, 

Dan komen we nu aan de essentie van dit verhaal: 


EEN LOW COST BUSSYSTEEM VOOR DE ATOM 
Voor ik echter verder ga, moet ik eerst even zeggen dat het nu volgende niet 


pijn eigen verzinsel is, maar ik weet zeker dat ik van de bedenker ervan je er 
alles over man vertellen, 
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Het principe is even eenvoudig als doeltreffend. Er bestaat in de 
elektronicahandel (zelfs bij N, te E,) printplaat ter breedte van eurokaart en 
ter lengte van willekeur amet daarop 54 koperbanen. Deze banen zijn over de volle 
lengte doorboord zodat er enkelrijige connectoren op gesoldeerd kunnen worden. 
Het geluk is met ons, want de Atom-bus bestaat uit zo goed als 1 zo'n rij, zodat 
het doorverbinden wel zeer eenvoudig wordt. Voor alle duidelijkheid zal ik die 
busbezetting even laten zien. 





ba 

+5V ï 

A15 2 

Al4 3 PBZ 
NWDS 4 PB& 
NRDS 5 PBS 
NRST 6 PB4 
AB 7 PB3 
A7 8 PB2 
A6 9 PBt 


AS 18 PBB 
A4 ti CB2 
A3 12 CBI 
A2 13 PA7 
At 14 Pâ& 
AB 15 PAS 
D7 16 _PA4 
D& 17 PAS 
Da 18 PAZ 
D4 19 PAL 
D3 20 FAB 
D2 zt  CA2 
D1 22 CAL 


AtzZ 25 RDY 


A9 28 IRQ 
02 29 NMI 
R/W 38 SYNC 
BLKO 51 

BEND 32 


Zoals je ziet wordt de a-rij vrijwel alleen bezet door de VIA en signalen die 
zelden gebruikt worden. Alleen voor IRG en NMI moet een oplossing gezocht 
worden. 

De procedure voor een bussyteem is dus ongeveer als volgt: 

Koop een stuk print met 34 koperbanen ter lengte van eigen keuze en soldeer daar 
de in de behoefte te voorziene enkelrijige connectoren (352 pens) op, op zodanige 
afstand van elkaar dat de kaarten er ruimschoots een piaats op kunnen vinden {2 
tot 2.5 cm is meestal wel voldoende). De te plaatsen kaarten warden voorzien van 
haakse connectoren met een a/b of desnoods a/c configuratie. Als je een kaart op 
de bus prikt, zul je merken dat deze makkelijk heen en weer kan bewegen. Je zult 
ze dus op de een of andere manier moeten fixeren; het lijkt me dat je dit wel 
naar eigen wens kunt verzorgen. Je zou het geheel dwars op een plankje kunnen 
leggen en de kaarten tussen kleine spijkertjes klemmen, ík noem maar wat. 

Als Atom-bus kun je het beste de b-rij van de connector achterop nemen, 
aangevuld met de IRO- en de NMI-lijn. Dit is een totaal van 34 signalen en past 
dus precies op de busprint. Je soldeert een 34 polige vlakbandkabel aan de ene 
kant aan de busprint en aan de andere kant aan een afb connector die in de qtom 
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gestoken kan worden. Met behulp van de cijfertjes op de diverse connectoren moet 
dat wel te doen zijn. Maak overigens de kabel niet te lang teneinde storingen te 
voorkomen. Ik kan je geen gegevens verstrekken over de toegestane lengte, maar 
ik denk dat een kwart meter toch wel mogelijk moet zijn, Als een kaart 
aangesloten moet worden aan een van de interruptlijnen kun je een klein draadje 
leggen van de print naar het juiste extra spoor op je busprint, en als je dit 
heel netjes wilt doen, kur je in dit draadje een enkelpolig connectortie 
opnemen. 





Maar, zul je nu zeggen, de connectoren die jij bedoelt zijn ook níet goedkoop. 
Inderdaad is het zo dat je er in Nederland zo ongeveer een tientje voor betaalt, 
raar maar waar. Je zult het dus via kwantum korting of mazzeltjes goedkoop 
moeten zien te houden. Lukt dat niet, dan kun je aïtijd nog de 
a/c-vrouwtjesconnectoren kopen (met een beetje moeite zijn deze wel voor ca. 5.= 
per stuk te koop). De a- en de c-rij worden dan identiek uitgevoerd. Het is zo 
nog stukken voordeliger dan de “Elektuur-oplossing”. Op de Hobbytrenie in 
Dortmund bleek overigens weer gens dat een heleboel zaken (waaronder 
connectoren!) in Duitsland vele malen voordeliger zijn dan in ons eigen land. 
Het lijkt me een goed idee om dit soort zaken federatief in te kopen. Het maken 
van uitbreidingskaarten is leuk, maar de support van de aansluiting hoort er ook 
bij, vind ik. 


Als ik het bovenstaande verhaal nog ‘ns overlees, bedenk ik dat er als titel 
best wel “buzzprints” had mogen staan. Niettemin hoop ik dat je er je voordeel 
mee kunt doen. 


ELEKTRONISCHE MODELBAANBESTURING.- 


Bij ELEKTUUR is een boekwerkje verschenen omtrent modelbaan besturing. Hierin 
worden een aantal schakelingen besproken, welke met elkaar verbonden kunnen 
worden tot een besturings systeem op maat, 

De besproken schakelingen zijn: 

«1 de 12 volt voeding. 

„2 de oscillator t.b.v. de snelheidsregeling. 

„3 de snelheids regeling. 

…4 de wissel voeding. 

«5 de wissel logika. 

«b de sein besturing 

„7 de blok-logika. 

„8 de beveilingings logika 

-9 de computer interface voor de junior computer. 


Tevens wordt er uitgebreid een besturings programma besproken welke de naam 
CONTROL heeft mede gekregen. Alleen al de stroomdiagrammen omvatten 38 pagina's 
zodat het programma degelijk wordt uiteengezet. 

Het boekje bevat van de schakelingen ook een print layout en groot was dan ook 
mijn teleurstelling dat deze printen NIET worden uitgegeven. Dit is erg janner 
want voor de treintjes fanaten was de aansluiting op de ATOM wel zeer eenvoudig 
geweest, Deze aansluiting bestaat uit 8 adreslijnen, 1 selectlijn, 8 datatijnen 
en uit de 5 stuurlijnen reset, clock en R/W, 

Voor de liefhebbers is bij ELEKTUUR de printlayout eventueeel tegen het daarvoor 
geldende tarief te verkrijgen. Ook de software van het CONTROL programma wordt 
door ELEKTUUR in een 2716 geleverd, 
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Wijziging in de nieuwe schakelkaart, 


Naar aanleiding van de eerste serie van de nieuwe schakelkaart zijn diverse 
klachten binnen gekomen, waarvan er een voor ‘de leken’ zeer lastig was. 

De RAM-blokken waren als vier blooken van 2-Kbytes uitgevoerd, zodat als je op 
RAXXX 4-K ram wilde hebben je moest solderen, 

Dit ís nu gewijzigd, de voetjes die het dichtst bij de connector zitten en 
genummerd zijn met : 


ic 28/21 
ie 22/23 
IC 24/25 
IC 26/27 


zijn nu ais volgt in gedeeld : 


IC 20 #ABXX blok 
IC 22 #E@XX blok 
IC 24 #ABXX blok 
IC 26 #EBXX blok 


ssee 


Dit zijn de RAM-IC's die in de voetjes op de print gaan, zodat als je de print 
van onderdelen voorziet en overal IC's in prikt, dan is er direkt 2x 4-K ran 
terbeschikking, 1 blok bepaald door aansluiting A bij IC 7 en 1 blok bepaald 
door aansluiting E bij IC 7. 

Als je er nog twee blokken van 4-K ram bij wilt hebben, dan moet je stapelen en 
de selektlijnen aansluiten op de vier soldeerpunten tussen ic 12 en 13. 


De vier punten zijn genummerd (zie tek,) en komen over een met : 


#ABXX blok 1 
HEBXX blok 1 
#ABXX blok 1 
#EOXX blok 1 


Ne 


Ik hoop dat het voor iedereen zo duidelijk is, 
Dan een Îaatste opmerking s 


DE GEWIJZIGDE NIEUWE SCHAKELKAART IS TE HERKENNEN AAN DE WITTE DPDRUK MET : 


BEA SCHAKELKAART tr) 1984, 
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VERMENIGVULDIGEN EN DELEN 


Veraenigvuldigen met 2 is makkelijk genoeg: 'ASL A’. Met 4 ook: ‘ASL Az ASL A“, 
Met andere getallen wordt dit al moeilijker. Toch heeft de ATOM daar zijn eigen 
routines voor (alleen voor integers). Die zitten alleen wat moeilijker in 
elkaar, maar daar is wel uit te komen, 

De ATOM heeft z'n Basic-stack voor getallen op: 

#lb,X #25,X #34,X en B#4I,X. 

Hebben we nu 2 getallen staan (X= respectievelijk @ en 1) dan staat de X-pointer 
(gesaved in zeropage #4) op 2 11! 

Voor delen geldt dan: ‘JSR #C&64;JSR #C&8ECI ISR #CB61'. 

Voor vermenigvuldigen: 'JSR #C664;JSR #CB16'’,waarbij na afloop zeropage #4 weer 
op 1 staat, dus het resultaat in #iS,X enz. (hier #15,X=#15ti=#16), Zie dus ook 
het veel voorkomende verschil tussen ‘LDA BIS,X' en 'LDA #16°. Het eerste kan 
RELATIEF werken, terwijl het tweede altijd ABSOLUUT met adressen werkt. Zorg er 
wel voor dat na bewerking zeropage #4 weer op @ staat 1! 

In de praktijk willen we bijvoorbeeld vermenigvuldigen met 10: 





&X _ VERMENIGVULDIGEN «xr 


Là REM VERMENIGVULDIGEN 
iB _P=#2809 


30 _LDA@IG;STA#16;LDXED; STX#25; STXRI4; STX#4S 
35 _\ EERSTE GETAL =18 

40 _ INX;STX4 

30 JSR#C78B HAAL TWEEDE GETAL 

68 JSR#C664;JSRHCB1G VERMENIGVULDIG 

78 _LDX@U;STX4 SAVE POINTER WEER OP NUL 

Be JMP#CSB9 DRUK HET GETAL AF 


118 E. 


PROGRAMMALENBTE 259 BYTES 
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In de praktijk willen we nu bijvoorbeeld delen door 10: 


hid DELEN er 


a REM DELEN 
18 _P=#2802 


58 JSR#C78B HAAL GETAL 
48 _ LDA@10;STA#17;LDY@0; STY#26; STY#5S; STY#A4 

50 \ TWEEDE GETAL =18 

68 LDX@2;STX4 SAVE POINTER ACHTER DEZE GETALLEN 
70 _ JSRAC6GA; JSRHCABC; JSRÈCHLL DELEN 

80 LDXE0;STX4 SAVE POINTER WEER OP NUL 

96 JMP#C589 DRUK HET GETAL AF 


118 E. 

128 REGEL 48 HAD OOK KUNNEN LUIDEN : 

130 LDA@L0; STARIE,X; LDYEDSTYR25, Xs STVRIA,X3 STVHAS,X 
140 DIT 15 MOOIER DAAR WE DAN STEEDS HET BASIC- 

158 ADRES (#16,#25,#34,#43) AANSPREKEN MET X 

168 ALS OFFSET 14 

178 keten G. ZIELEMAN keker 


PROGRAMMALENGTE 503 BYTES 


-OPM.1 Delen door @ geeft de bekende ERROR 129, 
-OPM.2 Het ophalen van een getal kan door 2 subroutines worden gedaan: 

='JSR #C78B' of 

="JSR #CBBC' 
De eerste haalt een hele expressie op, bijvoorbeeld ‘TEST 18#3+4' ('TEST' is 
bijvoorbeeld gen statement). Op de Basiec-stack staat dan het getal 34, 
De tweede leest maar 1 getal, voor een expressie zijn dan haken nodig t! 
Vergelijk het ARRAY 'MMIO#+3'. De 19 namelijk wordt gelezen door subroutine #CHEC 
……. dus ARRAY-element nummer 18, en niet ARRAY-element nummer 13. Daarom zijn 
bijvoorbeeld oek bij 'PLOT (EXPR),(EXPR)' haken nodig. 
Een verschil: de tweede is veel sneller. 
-OPM.3 Het vermenigvuldigen of delen kan natuurtijk ook met meer dan 2 getallen 
‚ dan moet men de gegeven routines meerdere keren toepassen. 


Veel succes met het vermenigvuldigen. 
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ADVENTURES 


Avontuur bestaat nog, dat is zeker. Zowel voor de rokers dan wel voor de 
conputergebruikers. In bepaalde kringen van programmeurs en gebruikers zijn de 
zogenaamde Adventures populair. Wat zijn dit nu eigenlijk: deze ADVENTURES? 
Adventures zijn spelen waarbij men op eigen houtje door een vaak imaginair land 
reist om zoveel mogelijk schatten (leestpunten) te verzamelen (en dit gaat vaak 
met geweld) en deze op een plaats af te leveren waar het programma de schatten 
verwacht. 
Voordat er computer adventures bestonden was er al een spel dat als voorbeeld 
is genomen voor de huidige computer-adventures, namelijk Dungeons & Dragons. 
Een korte beschrijving: 
De rol die de computer heeft bij adventures is bij het spel Dungeons and Dragons 
in handen van de zgn. ‘dungeon master’. Dit is een persoon die een kolossaal 
doolhof van gangen, grotten, oceanen, steden, dorpen en noem maar op, ontworpen 
en volgestopt heeft met kostbare schatten. 
Samen met een groep personen (lees: role-players) wordt dan vaak een avond in de 
week het spel gespeeld, Hierbij krijgt een ieder een karakter (d.m.v. 
dobbelstenen) toegewezen (met persoonlijke trekken zoals gezondheid, kracht, 
taalgebruik). Ook krijgt men geld. Met dit geld kan men nu eten, drinken, wapens 
e.d. aanschaffen voor gen zo veilig mogelijke reis (leessadventure). 
Dan vertrekt men. Onderweg kunnen nu allerlei vijanden en monsters het toneel 
betreden, die men met behulp van medespelers en eigen kracht dient te 
vernietigen of te overreden (laatst genoemde bespaart krachten die men later 
nodig kan hebben), 
Wanneer en wie men tegenkomt wordt bepaald door de dungeon-master m.b.v. zijn 
kaart en dobbelstenen (4,6,8,12, en 16 kantigen). 
In Engeland is dit spel zeer populair en er zijn daar ook verschiltende boeken 
en tijdschriften over dit onderwerp te koop. 
Vorig jaar heb ik het zelf op een avond met een groep engelsen gespeeld en ik 
moet zeggen het is veel spannender (natuurlijk onder het genot van Broenlo's 
nat) dan de gebruikelijke computer-adventures. 
Enige literatuur: 
tijdschriften: WHITE DWARF 
IMAGINE 
boeken: DUNGEONS & DRAGONS 
=basic rulebook by Tom Moldvay 
-expert rulebook by Gary Gygax and Dave Arneson 


Gek genoeg zijn de computer-adventures erg laat ontstaan, namelijk in 1977. Toen 
ontstond het programma DUNGEON op de Programming Technotogy Division van de MIT 
Laboratory For Computer Science. Het was geschreven door Tim Aderson, Marc 
Blank, Bruce Daniels en Dave Lebbing, De makers waren duidelijk geinspireerd 
door het adventure spel Dungeons & Dragons van Gygax en Arneson. 

Het originele programma was geschreven in MDL (leessmuddle) om een DEC computer 
te testen! 

De versie zoals tegenwoordig bij een computer van DEC geleverd wordt is 
geschreven ín FORTRAN IV door een ietwat paranoide DEC pogramaeur die nog steeds 
anoniem wenst te blijven. 


Wat ís een computer-adventure en hoe speel je het? 

De opzet van een computer-adventure is in grote lijnen gelijk aan het spel 
Dungeons and Dragons doch nu speel je in je eentje. Je wordt geplaatst in een 
imaginaire omgeving (alhoewel, tegenwoodig bestaan er adventures die je laten 
reizen door New York, Londen en het Vaticaan), 

Er wordt duidelijk gemaakt hoe de omgeving eruit ziet en eventueel wordt er 
vermeld in welke richtingen het mogelijk is te reizen, 
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Indien er iets aanwezig is waarmee je iets kunt doen, b.v. oprapen, gooien etc, 
dan zal de computer ook dit kenbaar maken, 
I.p.v. de dungeon-master die jou de vragen stelt, zal nu de computer de vragen 
stellen. 
Het antwoord wat de adventure verwacht bestaat vaak uit de volgende 
mogelijkheden: 
1} <richting> 
of 2) <werkwoord> <zelfstandig naamwoord) 


voorbeeld: 

1) 50 NORTH 
ook goed: NORTH 

af N 


2) GET SPADE 
TAKE BOTTLE 
DIG HOLE 
FILL BOTTLE 


De adventure zal altijd in alle gevallen antwoorden. 

B.v. naar aanleiding van het commando: 
GET SPADE 

zel de adventure antwoorden met: 
YOU GET THE SPADE 

Om te zien of je hem werkelijk bij je hebt, kun je vragen: 
INVENTORY 

of INV 

Daarna wordt er vermeld wat je allemaal bij je hebt, 

Zou je bijvoorbeeld de opdracht 
TAKE GOLD 

gegeven hebben en er is geen goud te zien, dan zal de adventure terug komen met: 
Ï SEE NO GOLD HERE 


Het aantal commando's is natuurlijk niet onbeperkt. Het aantal wordt vaak 
bepaald door het beschikbare geheugen. 

Hier volgen enkele commando's die heel vaak geinplementeerd zijn (ook in 
SPHINX) : 

NORTH, SOUTH, WEST, EAST, UP, DOWN, TAKE, GET, DROP 

INVENTORY, HELP, KILL, LIGHT, SCORE, GUIT 


Haar sommige adventures, zoals Sphinx, kennen er nog veel meer, 

De antwoorden (ernstig of humoristisch) zijn volledig afhankelijk van de 
programmeur. Hier zijn geen regels voor. 

Als je eenmaal aan het spelen bent kun je beter een landkaart bij houden met 
aile posities en verrichtte handelingen om latere teleurstellingen te voorkomen. 
Het doel van een adventure is meestal het verzamelen van zoveel mogelijk 
schatten (goud, zilver, wapens) en het doden van vijandelijke wezens ‘dwergen, 
arcs). 

Bij het bepalen van de score wordt meestal niet alleen gecheckt wat je verzameld 
hebt. Ook van belang ís het aantal beurten wat je voor het spelen nodig hebt 
gehad. 


Trend tegenwoordig, zijn de zogenaamde ‘graphic-adventures’. Dit zijn 
integenstelling tot de ‘text only adventures’ (zoals bij de ATOM: ZODIAC, DEATH 
SATTELITE en SPHINX) adventures die naast de (veelal compacte) informatie ook 
een graphische voorstelling van de omgeving tekenen. Prachtige voorbeelden zijn 
‘Elite’ voor de BBC en ‘The Hobbit’ voor de spectrum. 

In principe moet dit ook een mogelijkheid zijn voor disc-geortenteerde Atom's. 
(jongens, wie durft het aan?) 
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Nu de standaard regels bekend zijn roet eenieder wel een ‘adventurer’ worden, 
dus speel eens SPHINX of geen van de oude ATOM adventures. 
Nog niet overtuigd? Lees dan eens ‘In de ban van de Ring’ van JJR Tolkien of 
bekijk de filas ‘Raiders of the lost arc’, ‘Indiana Jones and the temple of 
daor’ of ‘Romancing the stone’ eens. 
Probeer cok gens een adventure te maken of zet een BBC-adventure (zoals Sphinx) 
on naar de Atom met P-Charme 
Literatuur: 
Boeken: Creating Adventure Programs on the BBC micro — Tan Watt 

Creating Adventure Programs on your computer — Andrew Nelson 
Tijdschriften: Micro Adventurer 





Explore ze !!! 
SPHINX 


Tegenwoordig zijn er voor alle micro-coaputers wel adventures leverbaar. Voor de 
Atom zijn er destijds, de nog commercieel verantwoorde periode, ook adventures 
verschenen zoals: ZODIAC, DEATH SATTELITE en ADVENTURES, 

Na dit lijstje heb je het eigenlijk wel gehad op enkele pseudo-adventures na 
(GREEN THINGS), 

Maar kijk ik nu naar b.v. de Spectrum (Valhalla, The Hobbit) en de BBC (Elite, 
Classic Dungeon), dan is de Atom wel erg mager toe bedeeld! 

Daar wilde ik eens wat aan doen en dacht: ‘Ik heb de P-Charme en het commerciele 
BBC programma Sphinx van Acornsoft, dan moet het eigenlijk mogelijk zijn om 
Sphinx op de ATDM te implementeren’. 

Wel, dat ‘wel eens wat aan doen’ is 35/4 jaar geworden, maar Sphinx loopt dan au 
ook op de ATOM!! 

Noot: Daar ik nog niet op alle situaties van Sphinx ben geweest (meer dan 140!) 
is het mogelijk dat iets nog niet goed verloopt. Geef dit dan even door! 


Een (voor sommigen nare) bijkomstigheid is dat Sphinx erg veel geheugen nodig 
heeft, n.l. 

#200B-#2880 strings 

#2880-#2980 P-Charme vectoren 

#2900-#0008 Sphinx deel 2 

#8200-#A0LA Sphinx deel 1 
en men is natuurlijk P-Charme nodig. 


Zoals Y misschien is opgevallen is Sphinx (helaas) in twee delen opgesplitst. 
Door enkele vieze trucs uit te haten is het mogelijk om P-Charme te misleiden en 
het programma in twee pages te laten lopen. 

Zoals het een goed adventure programma betaamd, is het volledig onleesbaar. In 
de originele BAC versie was het mogelijk om al direct te zien in welke situaties 
men zou belanden. Dit ís natuurlijk niet zo leuk omdat je er dan naar toe kunt 
werken om de beste resultaten te behalen, Maar ja, voor gen freak als ‘Indiana’ 
Boers is zelfs de string-encoding in Sphinx ook al niet genoeg. (Nog bedankt 
voor het testen Ronald !). 


Het programma dient gestart te worden met het commando SPHINX (dus niet RUN) 


Ik zou zeggen: 
GET SPHINX 
LOAD PROGRAMMES 
TYPE SPHINX 
HAVE FUN 


Hier volgt nog de originele handleiding van Acornsoft: 
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Don't be afraid to experiment with a wide range of verbs and nouns. Only in this 
way will you discover the vocabulary of the adventure; this is part of the fun 
but is also vital in order to overcome all the obstacles ín your path to the 
Sphinxe 

To move in some direction try something like 60 UP, DOWN, IN, NORTH or N etc. 

To get or drop some keys, for example, try GET KEYS, TAKE KEYS or DROP KEYS, 

To get a full description of where you are, use LOOK 

ror a full list of your current possessions use INV er INVENTORY 

A selection of other words: FILL, ENTER, PAY, 

To stop altogether use QUIT 


You can find out your score at any point during the game by typing SCORE 
(maximum of BAD). 


Veel Succes INE! 
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BO XDUMr 
Met dit programma kan een ASCII-HEX- of MNEMONIC-DUMP op een compacte wiize op 
papier gezet worden. In de standaardvorm houdt dit in dat een 
disassemblerlisting van een 4K uitbreidingsbox op 8 vel komt te staan. 
W?5 en W?6 bevatten kolombreedte en aantal kolommen voor de Mnemonic-dump, R 
bevat het aantal regels per pagina {( moet tenainste 1 kleiner zijn dan het 
maxinale aantal regels dat op een pagina past) en X bevat de breedte voor ASCII- 
en HEX-DUMP. 
>RUN _ DUMP: 
(A) SCII 
(HEX 
{M) NEMONIC 
(5) TOPPEN 
KEUZE ?M 
BEGIN ?#A500 
EIND ?#AFFF 
NAAM _2PCHARME V173 


18 REM >-->) boxdump <{--{< 281184 B.A.V, BRUSSEL (05780-20212) 
28 DINLLS@,TT5,EE22,DD10,W5D,C1O,P(-1);G=PEBFFFF 

30 F.1=8T.70;LLI=GN. 

40 8=4;V=#70; GOS. h 

58 W?5=17;REM KOLOMBREEDTE 

68 W7 zREM AANTAL KOLOMMEN 

70 R=35jW?7eR-2;REM R=AANTAL REGELS 

80 X=16;V=k-1jREM X=BREEDTE VOOR A‚H DUMP=16 OF 32 
9DaP. $5$6 

180 P‚“DUMP:"** (A)SCII""*“ (HIEX"*” (M)NEMONIC®’ 
118 IN.” (S)TOPPEN"'“KEUZE "$C 

128 I.?C4CHPA"A, ZCCHCH"H"A. 2CCHCH"M" A. PELDCH"E" Ga 
138 I,?C=CH"S";P,$21$2$12$5$6; @=8;E. 

140bIN. "BEGIN “B,“EIND "E;I.EC=B;G.b 

158 IN. “NAAM "SP;E=E+L 

160 !#70=B; !W=E; O=P+HL.P; !D=#6DEAODBA; KEBEHFFFO 

179 P.$21$2 

188 I.?C=CH"M";G0S.g;6.a 

190 GOS.c 

208 D.;P.&K* “JF. eK T‚K+Y;I. IXB D.P.“ “sl=lttjU, I>=B 
218 I,I>=E I=KtY;G.d 

229 A=?I; 1. ?C=CH"H"sLI,#FBD2jP.* * 

238 I,?C=CH"A";GOS.e 

240dN. ;K=K+K; S=14 BDS. rz U. KD=E; 1. R>23 5=23 GOS. rr 

252 G.a 

268rF.Je1T.53P. 'zReR- lj I.R20;P.$12;R=W?7; 1. KCE} GOS. C 
278 N.;R. 

280rI,R>6; GOS. f;R. 

298 R=1;5=1;608.r;R. 

SOOFLI, DDO; Pk" (R"B"-RPE-L" De" 

318 P‚”* “;F.A=OT.Y;LI.NFBB2jP.® "iN; P, "'sR=R-S 
328 R‚ 

330el.A<520.A>126;A=32 

340 P‚$A" ";R, 

350g1.RCINP7+2;P.$2$1283 

368 LI.EELGR, 

370hP.$21;F. I=0T, 1;P=0 

580 

590:LLILDYE2 

400: LL2LDA (VI ‚Ys STAGE, Ys DEY; BPLLLZ 
A1B:LL3INYsSTY#F: LDXER40 
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420: LL4ALDA#b; CMPEEDA; BEOLLG} SEC; SBCHF IFS, Y; SEC 

A30 SBC&FZ10,X; BNELL 6; STARS; LDY#F2S0, X 
&4U:LLSRORA;RORHES; DEY; BNELLS; LDY#F ; ANDEF IDS ,Y 

850 BNELL7;LDASFLE4, Ys AND#65; BNELL7 

46Q:LL&DEX3 BNELL 4; CPY@RE; BNELLS; LDY@#D; LDX@R1 13 STYAF 
470: LL7LDARF202,Y; CMPE#F; BNELLS; LDAGH1 

488: LLEANDEHF ; STAH6I; STARD; STXH6AFLDXEV; JSRHFTFL 

490 LDX@V;LDYE40 

SBG: LLILDA(V) „Ys JSRHFAQG 

510: LL1ODECHAF; BPLLL? 

520 LDX#6A;LDAGF194,X; STARG4;LDAAFLSG, X 

530 STA#GS;LDYERS 

540: LL11LDXE#S 

550:LL12ROL 643 ROLHES; ROLA; DEXs BNELL 12; AND@HIF; CLC 
560 ADCERIF; JSRHFFFA; DEY; BNELL 11 
57ALDYERB; LDX#F; LDATTG, X3 STAHAS 

588: LL13CPYE#6; BNELL 18; TXA; BNELL 15 

590 LDA#67;BPLLU14; DEX 

603: LL1ACLC; ADCV; STARGT; TXA; ADCV+1; STARGE 

610 LDXER2; BNELL ló 

628: LL1SLDX#0; BEGLL 18 

630: LL 16LDAER23; JSRAFFF4 

640: LLI7LDARGE, Ki; JSRHFBOZ; DEX: BNELL17 

650: LL18ASL#6?; BESLL19 

660 LDATT1,Y; JSRHFFF4 

678: LL19DEK; DEY; BPLLL 135; JMP#C5O4 

&80: EE13; INK; JSREE1S; JSREE1D; CPXW+6; RTS 

698: EE12; JSREE15; BNEEE12; JMPEES 

706: EEL1;LDA#220; STAU4B; LDA#209; STAW+9 

710: EEG; LDAE#78; STA#2GE; LDAEHC2; STAR207; LDXEG; JSREELS 
720: EE2LDAW+7; STAW+2 

730: EES; STXW44; JSRLL1 ; DECH+2; LDXW+4; LDAR7 1 
75SCHPW+1 ; BECEEA; LDA#70 

740 CHPU;BCSEEL2 

750: EEA; LDAU+2; BNEEE3; JSREE1 3; BNEEEZ 

760: EEN; LDAGDD1&255; STA#208; LDAGDD1/ 256; STAH20;LDAE2; JSRHFFFA 
770 JSRDDO; LDA@D; STAW+3; LDAW+7; STAM+2 

780: EE7; JSRACD5A;LDXEO; STXW+S 

790: EES; LDAW+10, X; STAR7O;LDAH+19,X; START L 

BOB CMPW+36,X; BCCEEL6 

810 LDA#72; CMPW+28,X; BCCEE 16 

820: EEB; CPX@4; BNEEE7 

830 LDAE12; JSRHFFFA; LDA@3; JSRHFFFA 

849 LDAW+8; STA#Z08; LDAW+9; STA#209; RTS 
850:EE163STXW443 JSRLL 1; LDXW+4; JSREE1S; INX 

B6BCPKW+6; BNEEE1O; DECH+2; ENEEET; LDAE12; JSRAFFF4; JMPEED 
870: EE10; LDYW+3;DEY °° 

BBO: EE21; INV; JSRHF7FD; CPYW+5; ENEEE21 ; LDY@O; STYW+S; JMPEES 
890: EE25;LDA#703 STAN+LO, X; LDA#7 1; STAW+L9, XJ RTS 

900: EELB; LDAR70; STAH+27 X; LDA87 1; STAW+3S,X4RTS 

2101 

928 TTO=P 

930 IP=HFOFFFEFF; PIA=RTFTEFFCF;PIG=#87BICFFS;P HI 2=RFAB7FF 
Q4Q P=P+15 TTI=P 

9502P=0;P! 12829205941; P Hi=#40282C58; P=P40 

960L 

970: DD 1; PHPs INCW43j PLP; JSRDD2; RTS 

980: DD2; JMP (W+8) 

490: DDO ISRAFID 1; 1; 2P=13; P=P+1 
1848 N.1sP.$&:R. 
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1 PROGRAM KRUISWOORD 

2 REM TINY VERSEHUREN 

3 REM pas op,NIET RENUMMEREN.REGELNUMMERS IN DATA 

4 P‚$12"e+t computerkruiswoordpuzzel #4" 

5 P. “HORIZONTAAL 7 <CIJFERD <LETTER>""" 

& P‚ “VERTICAAL 1 <LETTER) <CIJFERD""* 

7 Pp." DRUK EEN TDETS ";LI,#FFES 

8 DIMA2,B2,C26,D12,E12 

9 P‚$12;?#E1=0 

40404040; '#8904=#82814048; !#B90I=#860584835 
1 BA898887; !#801 BESD2C8EB; !#801 9291908F 
12 !R8018=#4040949S; | HOR2ZAEHTFTF7FAD; LHBB2BHTFIFIFIF 
15 HROO2CEHTFIFIFIF; |HBOIOH7FIFIFIF; HB RTF IFIF7E 
14 1#B038=#407F7F7F; | #8044=#40407F 50; (HEOAB=HADAOFF AO 





















15 !#884/ 40A0FF40; | $805 FEFFFF4O; !#8085: 4040FFAD 
16 !#805B=#407F 4040; !HEOLA=HEFFFIFSL; HOOLEZRAOFFFF AD 
17 1#B06CSHAGFFAOFF; | #8070=HFFFFAOFF ; | #BO74=HFFAOFF 40 


1 ADFF7FS2; 1 48D9 
19 1#RDIA=RFFA0A04D; !#8DIB=#407F4OFF; | HOT 
20 !#BAAAAFFFFIF SS; (4BOAB=HAOFFFFAD; £ REDA 
FFFFAOFF; !#805 
AOFFFFAO; | S00CC=#40FFAOPF 


















FF407F 36; !#8108=tFF 4UFF 40 
ADAGADFF ; HBL LB=RAOIFFFFF 
AOFFAOFF 
29 !#81SO=HAOFF4IFF; HOI SA=HAOFFSOFF ; | HO13E-H407F4OFF 
38 !N8144=448FF7F SO; | #B15O=#40FFAOFF ; HBIS4=AADFFFFFF 
4OFF7F39; !#816/ FF4OFFFF 
2 4OFFFEFF; IRB170=#40FF4OFF; HE17 42 HFFAO4040 
33 1#8170=#407FFF40; \KB1B4=NIF7FTFAG; \HBIGBRIFIFIFIF 
34 1#81BCSHTFIFIFIF; \NBIIDRIFIFIFIF; (KOLVASRIFTEIEIE 





355 807F7F7F; WELAG=#404D40A0; :HELAA=H404A240A0 
36 40404040; !#B1A 48504040; \#EIBO=HADA04040 
37 40404040; | #81B8=#40404040; | #B1BC=#40404040 





40404040; '#81C4=#40404040; !#BIC! 
39 IHOICC=#40404D40; 'KBIDO=HAD404040; (H8ID- 40404040 
4B !#81DB=#40404040; | #91DC=#40404040; !HAIED= +40404030 
41 RES.3V. 15; IN. "POSITIE "SA; P.$11$A" . 

42 DATA"DA","VAST GEHEUGEN", "ROM" ,B 

43 DATA"BE","OMZETTER DIGITAAL ANALOOG", "DAC",81 

44 DATA"OI DISKOPERATINGSYSTEEM","DOS",82 

45 DATA"@G", "LADEN", "LOAD" 108 

46 DATA" 2B","VERTAALPROGRAMMA"," INTERPRETER" ‚94 

47 DATA"20"“,*LIGHT EMITTING DIODE“, "LED",118 

48 DATA"4A“, "EENHEID VAN INFORMATIE“,"BIT",90 

49 DATA"4P","INVOER VAN INFORMATIE", "INPUT", 114 

58 DATA" &G","PERSONALCOMPUTER", "PC" „97 

Sl DATA"&L","WILLEKEURIGE WAARDE", "ANALOOG" ‚100 

52 DATA"BB", "MACHINETAALPROGRAMMA" , "ASSEMBLER" „95 

53 DATA"ER",“PROGRAMMABLE INPUT/QUTPUT",*PIO",103 

54 DATA"9N", "GEINTEGREERDE SCHAKEL INGEN", "CHIP", 102 
S5 DATA"08", "HOGERE PROGRAMMEERTAAL", "APL" „167 

56 DATA"P2","MACHINEPROGRAMMA", "EDITOR", 112 

57 DATA"G8","LIGUID CRYSTAL DISPLAY", “LCD, 109 











KRUISWOORD TINY VERSCHUREN ACORN NIEUWS PAG. 21 
58 DATA"R6","RUIMTE TUSSEN 2 BLOKKEN", "GAP" ‚106 
59 DATA"TD", "CIJFER", "DIGIT", 111 
&B DATA“T7","INPUT/OUTPUT","10",185 
&t DATA“S8","INTEGRATED CIRCUIT®,"IC",104 
62 DATA" J7","KATHODESTRAALBUIS" "CRT", 96 
63 DATA"L1","REEKS INSTRUCTIES", "PROGRAMA", 98 
64 DATA*N5", “PROGRAMMEERTAAL ", "BASIC" ‚101 
65 DATA"CB* "BEELDSCHERM", "MONITOR" ,83 
&& DATA"FO","GEHEUGENPLAATS", "ADRES", 85 
67 DATA"H1","COMMUNICAT IEAFSPRAAK* , "PROTOCOL", 86 
&B DATA"J0" "UITVOER", "GUTPUT",88 
&3 DATA"A4® ,"PROGRAMMAFOUT*, "BUG",91 
70 DATA"B7","TOEGANKELIJK GEHEUGEN", "RAM" „92 
71 DATA"ES* ,"MODULATOR. DEMODULATOR" , “MODEN" ‚93 
72 DATA" A","A","A",8 
75 READ $B,5C,$D,X 
74 IF X=8 T.6.35 
7ö IF $A=$B T,P,$tI$A" : "$C';6.77 
76 6.73 
77 IN. “ANTWOORD "SE;P.$11 
78 IF $E=$D T.G05.X 
79 6.56 
85 1NBDAL=RFFODAF LER. 
Bi 1REOAA=HFFOIOIDAGR. 
2 I#BO4E=HFF1SOFO4R. 
85 MH#0048-HOD; 74806 
84 MRHLEE=HOF; 74810 
85 7#BOAB=HD1; MADLB=#04; 24808 
86 PHBIED=RLO; MMADED=RL2; MREDAD=HOF ; ZHBBCD=HL 4; MRELED=HOF 
87 M#81AD=#DI; HEL 2D=H0F ; 7HE1AD=HOCH Ra 
88 M80AF-HOF; HELGE =HIS; LPBDOF #14; PRBOAF HLD; PHBOCF=HIS 
89 MRBDEF=RLAGR. 
90 HRBOCL-HFF140902;R. 
91 MEBCG-RO2; PHBUEG=H LT; HELD =HD7JR. 
92 MEL27=R12; IRELAT HOL; ZREL67=EODER. 
3 MRBDEA=HOD; ZHBLEASHOF; PHBL2A=H0A; PRBLAA=HUS; HELGA=HODER. 
94 1#REB7=#05140ED; | HBOBB=HUTL 21012; | REUEF=HFF 120514; R. 
95 1#BL47=805151501; !HEL4B=RDIOCOZOD; PHELAF=RI2JR. 
96 MHEL2F-HUS; PRBLAF HLD; PRBIOF=HLAGR. 
97 MBIEC=#1B; HBLOD=HOIE Re 
FB 2807 1-#10; HED L=H12; REDE HOF; PREOD1=RD7 ; PHBOF 12412 
99 MELLO; RELSI=HOD; PRBITL-HBD; RBI71=HBIJ Re 
108 1#BILt=HOCHITED!; HEL L5=HEFD7OFDF; R. 
101 PHBEFS-HO2; IBILTSROI; WELII=H1 IG THOLST=RON; 2817 5=R0TER. 
102 !#8175=#10090803; R. 
103 (#B1SG=HOEDILOFF;R. 
104 2#8158=-#09; MRALTE=ROIR. 
105 ?#8139=#09; H815J=ROFGR. 
106 ?#B117=#07; 288137 =#01; 7H0157=H10;R. 
107 ?$80T4=RD1; RBUI4=HLD; 7HB0IA-RBCHR. 
BAOLUFEC;R. 
HOC; 7HB07 GHB; 7RE0IG=HOA; R. 
FFO4050C;R. 





















OF; ?#00B8=HDE; YHBOAB=HDI; 7HEDCE=HI4 
12;R. 
125 ?#BBAB=#05; Z#00CB=HIEJR. 





















110 


111 DA; ?#B07 FERDI; PHADIP=HDT; ?HBOBI=HBI; HBODI=HLAGR. 
112 05; THOODS=HEA; PHEODS=HOI; PHHOFS=HIAG AHOLIS- HEF 
115 12jR. 


114 !#SDDS=#L510BERI; ZHEODI=HL AR. 
115 E. 
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NIEUWS SOUNDBOARD COMMANDO Ss 


de soundboard met het 8918 ic zijn al een aantal mogelijkheden aanwezig. 
commando's hebben echter de eigenschap dat ze identiek zijn aan de geluids 


indo's van de ORIC computer. 

geeft het voordeel dat in principe de ORIC programma's 
den overgenomen kunnen worden. 

meando’s zijns 


LAY kanaal,noise kanaal,envelope vorm,envelope duur 
OUND kanaal,hoogte,voluse 


MUSIC kanaal,oktaaf,noot,volume 


SOUND 
kanal 
MUSI 


PLAY 


Opgel 


Een v 


en MUSIC definieren de klank van de geluidsbronnen, PLAY 





en ingeschakeld worden, 
C : kanaals 8,1 of 2 
oktaaf= 8 - 6 
noot = 1 - 12 
volume= 8 - 15 
SOUND : kanaa 0,1 of 2 
hoogt: 8 - 65535 
volune= 8 - 15 
: kanaal= 6 - 7 waarbij de bits de kanalen inschakelen 
noise = 0 — 7 1 EEE) >. a 
envelope= 8 — 7 
duur = 8 - 65555 
et: volume @ geeft de envelope volume aandat kanaal, 
aorbeeld: 
MUSIC 1,3,11,5;MUSIC 2,4,3,5;MUSIC 3,4,7,5 


18 
24 
58 


PLAY 7,0,0,0 
END 


PLAY 0,1,0,0 
FOR I=O TO 31; SOUND 4,1,4; PAUSE 5; NEXT 
eoTo 350 


PLAY 1,0,1,182; SOUND 1,58,0; PAUSE 3@; GOTO 18 


PROGRAM ORIC SOUND 
DIM LL20;FORI=0TD20;LLI=99FjN. 
A=#6800; T=&7C24 








P=A;P.$21; 605. a;P=A;P. $6; GOS. a;P. $6 
$ SOUND"; T=T+LENT 
PT=LL1/256+H00; T?1=LL1; T=T+2 


ST="PLAY"; T=T+LENT 
2T=LL5/256+#80; T?1=tt5; T=T+2 
ST="MUSIC"; T=T+LENT 
PT=LL7/256+#00; T?1=LL7; T=T42 
$T="PSG"; T=T+LENT 
PT=LL15/256+#80; T?1=lL 15; T=T+2 
2Te#B8 

E 


wat betreft de 


geeft aan welke 
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158al 
160\ 

178\ ZET WAARDE VAN X IN REGISTER Y t! 

180:LLO LDA@112;STA#BEOD; STY#BEEI 

190 LDA@?&; STAHBE0B; STXHBBO1 

200 LDACA4; STA#BBOD; RTS 

zier 

220\ SOUND CHANNEL ,PITEH, VOLUME 

23G:LL1 JSRHCBEC; JSRHC2I1 3 JERCHBC; JSRHC231 j JSRRCBBC; JSRHCAEG 
240 ISR LL16 

250: LL2 LDX#A;LDARIS, KG ENE LL13GLDA@tGELLISSTARLS, X 

260 LDA#L3, XG CMPE@AGEPL LL3;CMPE1;BMI LL4 

270 ORAEB; TAY; DEY; LDA#LS,X; TAX; JERLLE 

280 TYAzAND@3; CLC; ASLA; TAY; LDX#4; LDARLA,X5 TAX; JSRLLE 

298 LDXRAGLDAS23, KX; TAX INYs JSRLLG 

308 BNELL4 

310:LLS ANDES; DRAEB; TAY;LDAR15,X; TAX; JSRLLO 

520 LDX#A;LDARLA, KX; TAX; LDY@G; JSRLLG 

33B:LL4 LOXRA; DEX; DEX; DEX; STX#4; JAPHC5SD 

340\ 

350\ PLAY CHANNEL ,NOISE CHANNEL ,ENVELOPE,ENVELOPE DURATION 
360: LLS JSR LL12;LDX#4; LDA#12, X; AND@7; STARI2, X 

370 LDA#L3,X4 ASLA; ASLA; ASLA; ORAHIZ, X; EOREHSF 

380 TAX; LDYE7; JSRLLG 

390 LDX#4; CLC; ROLHIS, X; ROLH24, Xs LDAHLS, X; TAX; LDY@11; JSRLLO 
400 LDX#A;LDA#24,K; INYs TAX; JSRLLG 

A10 LDXHAFLDASL4, XG ANDR7; TAX;LDA LL6,X3 TAX; INY; JSRLLO 

42@ DECHA; JNPLL4 

430: LLá; 1; tP=#28042000; Pt 4=#ODOCABDA; P=P+53 [ 

440\ 

450\ MUSIC CHANNNEL ,OCTAVE „NOTE , VOLUME 

464:LL7 JSRLL12 

470 LDXBAGLDARIA, Xs TAY;LDA LL1G,YsSTAR22, X 

480 LDA LLil,Y;LDY#13,X;STA#IS, X 

490:LL8 DEY;EMI LL? 

500 CLC;LSR#22, X; RORHLI, Xs JMP LLB 

S10:LL9 LDARIS,X3STARIA, XK} DECHA; JMP LL2 

520:LL 1D; 3 

530 !P=#06070700;P!4=#050505AG; P!E=#04040404; P?12=603 

540 P=P+15;CalL4t; 2 

550 IP=HAGOBT70E;P!4=#4797ECA7;P1B=H3070BIFB; P212=RF 4 

568 P=P+135;C 

570\ 

SBB:LL12 JSRKCEBC; JSRHC2I1; JSRRCHEC; JSRHC2SL 3 JSRHCBBC; JSRAC2SA 
590 JSRHCEBC; JSRHC4EG; JSRLL16; RTS 

&00\ 

618\ PSG 

620:LL15 JSR$CAE4JSR LL1G 
G5OLDAGREF; STARBODS; LDAGHFO; STAHBEO2 

640LDXCD; :LLLALDARL 12; STAHBBUO; STXHBBOL; LDACBE; STARBBIO 
GSOLDAED; STAHBEES; LDAHBEDI ; JSRAFE02; JSRHF7FD; JSRHE7ED 
GEULDALAA; STAHBBZD; LDAGHFF ; STARBEDI; INX; CPX@163 BNELL 143 JMP#C5SE 
670\ 

6BU\ SET VIA POORTEN 

690 :LLi6 LDACHFF; STARBED; LDACHFO; STAHBED2; RTS 

7801; R. 
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COMPUTERDENEKESPELEN 


Bij veel denkspelen is het vinden van de ‘beste zet’ een probleen voor een 
computer. Om redelijk tegenspel te krijgen zal de computer vooruit moeten 
‘denken’. Bij eenvoudige spelen, zoals ‘kruisje rondje’ kun je heel gemakkelijk 
een tabel maken met alle standen die voor kunnen komen met daarbij de beste zet. 
Zo'n tabel noemt aen ook wel een database. Bij een iets moeilijker spel, ‘vier 
op een rij’, is dat al heel wat moeilijker omdat het aantal mogelijkheden zeer 
groot is. Een database vergt dan ontzettend veel geheugen. Een bijkomende 
moeilijkheid is dat je van al die standen de beste zet moet weten (daar maken we 
inners de database voor). Bij schaken is een database echt onmogelijk. Als we 
per seconde 1 stelling zouden generen hebben we vele miljoenen jaren nodig om de 
database klaar te krijgen. Zelfs met duizenden supersnelle computers tegelijk 
duurt het nog een eeuwigheid, We moeten dus iets anders verzinnen om toch net 
een computer te kunnen schaken. In dit artikel wil ik het gaan hebben over het 
‘vooruitdenken’ van de computer. Ik zal het in hoofdzaak hebben over schaak 
Omdat daar de meeste literatuur van uit gaat en omdat ik zelf een programma aan 
het maken ben. 

In 1959 publiceerde Shannon een artikel over computerschaak. Dit artikel, het 
eerste over dit onderwerp, heeft zoveel invloed gehad dat nagenoeg alle huidige 
schaakprogramma's gebaseerd zijn op de ideeen van Shannon. Hij stelde een 
drietal strategieen voor om tot de beste zet te komen. Deze zijn heden ten dage 
bekend als Shannon's A, B en C strategie. 


A-stategie : 

Dit is de meest gebruikte en ‘domste’ metode. Ket gaat als volgt. De computer 
zoekt eerst alle zetten die hij kan doen, gemiddeld 58. Deze zetten worden in 
een lijstje gezet. Over het zoeken van zetten heeft al eens een artikel gestaan 
in Acorn Nieuws, zie literatuuropgave. De computer voert de eerste zet uit het 
lijstje uit en gaat nu voor tegenstander spelen. Hij gaat alle mogelijke 
tegenzetten ook in een lijstje zetten en voert ook hier de eerste uit. Nu gaat 
hij weer voor zichzelf spelen, zoekt alle zetten enz. Dit gaat door tot een 
bepaalde diepte. Op deze laatste diepte worden aile zetten gezet, gewaardeerd en 
teruggezet. Als alle zetten uit deze laatste reeks geweest zijn dan wordt de 
een-na laatste zet teruggezet en wordt de volgende uit dat lijstje gezet. Nu 
warden er weer een hoop eindpunten gegenereerd, gezet, gewaardeerd en 
teruggezet. Zo blijft de computer aan het werken tot hij alle zetten heett 
gehad, Als we elke zet op papier zouden tekenen krijgen we een soort omgekeerde 
boom. Zie bv. figuur 1, elk cirkeltje stelt een zet voor, het getal erin is de 
waarde. Als we uitgaan van 38 zetten per stelling loopt het aantal eindpunten 
zeer sterk op bij een grotere diepte. Bijvoorbeeld een diepte van 4 plies (1 ply 
is engels voor t halve zet}, geeft al 38*4 (ruim 2 miljoen} te waarderen 
eindzetten! Elke ply dieper gaat ongeveer 38 keer zolang duren, dus dit kan zo 
nooit tot aanvaardbaar spel leiden. Overigens, het vinden van de beste van al 
die zetten gebeurt met de zgn ‘minimax’ metode. Shannon kende niets beters. Men 
kan met modernere metoden flink in zo’n boom snoeien zodat we wat dieper kunnen 
kijken, maar hierover later. 


B-stategie : 

omdat de A-strategie nogal wat nadelen had introduceerde hij een ‘sliamere 
manier, Deze strategie komt tegemoet aan 2 grote nadelen van de A-strategie nl. 
het ontzettende gereken aan onbelangrijke zetten en het stoppen van het zoeken 
op een vaste diepte, Dit laatste is zeer vervelend als je midden in een afruil 
bent. Het programma zou zo een stuk kunnen verliezen omdat het niet ziet dat de 
tegenstander terug kan slaan, De B-strategie heeft hier veel minder last van. 
Het algoritme begint net als A alle zetten te genereren. Maar inplaats van het 
zoeken naar alle tegenzetten gaat het de gevonden zetten bekijken of ze 
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Figuur Computer, wit aan zet 













Zwart aan zet 


wit (computer) aan zelf 


Zwart aan zet 


wit aan zet 


Zwart 


wit 


zwart 


wit aan zet 


zwart aan zet 


wit aan zet 


zwart aan zet 


wit aan zet 
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plausibel zijn, dwz of het zetten zjn die een nader onderzoek waard zijn. Hierin 
schuilt natuurlijk het grote probleem, Wanneer is een zet plausibel? Shannon 
bieef er vrij vaag over. Alle niet- plausibele zetten worden vergeten. Dit 
gebeurt op elke ply. Stel dat we gemiddeld B zetten overhouden per ply dan heeft 
de boom bij een 4 ply zoekdiepte 8*4=4091 eindpunten. Dit is een factor 580 ten 
opzichte van een volledige boom met S8*4 eindpunten. Sommmige eindpunten zijn 
zetten die midden in een afruil of iets dergelijks staan. Shannon stelde voor 
deze punten verder te onderzoeken totdat de stelling ‘rustig’ is, Voor het 
rustig zijn van een stelling kun je wel wat eigenschappen vinden die het begrip 
een beetje benaderen. De risico's worden in ieder geval kleiner. 





Samenvattend : 

De B-strategie tracht ‘slimmer’ te werk te gaan, maar is moeilijker te 
programmeren. Er zijn maar weinig programma’s die B gebruiken, vrijwel allemaal 
werken ze met een efficient gemaakte A-strategie, Dat komt later nog ter sprake. 
Shannon stelde nog een strategie voor ‚ gen noemt die, hoe origineel, de 
C-stategie. Hierover is vrij weinig geschreven, ik zal ook kort zijn. C gaat uit 
van een min of meer menselijke metode. Patroonherkenning speelt daarbij geen rol. 
Deze metode sluit het meeste aan bij het begrip kunstmatige intelligentie. In 
het Nederlands gebruikt men er overigens de afkorting A.I. voor (artificial 
intelligence), niet K.I., hoewel dat ook kunstmatig is... Tot zover de A, B en 
C-strategie. We weten nu hoe we bomen kunnen maken, maar hoe vind je hiermee nou 
de beste zet? We moeten een eindpunt een waarde kunnen geven. Hiervoor gaf 
Shannon een formule. 

F(s}=20DE(K-K) +9HID-D') +5E(T-T') AHSE(L-L) HIA(P-P'} H(Pi-Pí') B, 54 (Du-Du' 
+A-A! +I-I') +0, 14(B-B') 

Fis) is de waarde van steïling s, de accenten duiden op de stukken van de 
tegenstander, K = koning, v…...,Pi = pien, Du = dubbelpion, A = achtergebleven 
pion, 1 = geisoleerde pion, B = beweeglijkheid (afhankelijk van het aantal 
legale zetten). Ket is eenvoudig om deze formule aan te vullen of te veranderen, 
bv andere coefficienten of een waardering voor centumbeheersing en opgerukte 
pionnen. Het moge duidelijk zijn dat bij een gelijke stand F(s) nul zal zijn, 
positief als wit beter staat en negatief als zwart beter staat. 


Minimax-metode : 

Dit is een metode om als je de waarden van de eindpunten kent daaruit af te 
leiden welke zet gedaan moet worden. Het gaat ervan uit dat wit altijd de beste 
zet zal kiezen, de maximale waarde dus, en zwart de beste tegenzet, de minimale 
waarde dus, Vandaar de naam minimax. In figuur ft is de computer aan zet met wit. 
De drie cirketjes bij ply 1 zijn de drie zetten waaruit de computer moet kiezen. 
Het getal wat er in staat moet u even wegdenken. Alle posities op ply 3 worden 
gewaardeerd, zie de onderste rij getallen. De ‘bron’ op ply 2 krijgt de maximum 
waarde van al zijn ‘nakomelingen’. We hebben ons nu 1 ply amhooggewerkt met de 
waardering. Met de waarden cp ply 2 kunnen we door het minimum te nemen de 
waarden op ply 1 uitrekenen, De te kiezen zet is dan de zet met de hoogste 
waarde. Bekijk de tekening maar eens goed. Ga ook eens na wat er gebeurt als de 
tegenspeler niet de zet met de laagste waarde zou kiezen. 


âlfa-beta algoritme. 

Eind S@-er jaren ontdekte men een metode om flink in bomen te snoeien. Deze 
netode is het beste met behulp van een tekening uit te leggen. Zie figuur 2. We 
beginnen te zoeken. De computer is met wit aan zet en vindt de zetten A, B en C. 
Hij voert A uit. Nu worden de zetten a, b en c gevonden, Dit zijn de eindpunten. 
De computer doet nu zet a, De stelling die nu ontstaan is wordt gewaardeerd. De 
waarde is 6. Nu zet hij a terug en voert b uit. De waarde is 7. Dit kan hij 
verder vergeten omdat zet A de laagste waarde krijgt van a, b en c,‚ de computer 
is immers voor tegenstander aan het spelen!. Indien u dit niet begrijpt moet u 
de minimax metode nog eens natezen. De laatste zet die nog onderzocht moet 
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worden is C, na onderzoek blijkt het B te zijn, vergeten dus. Zet A krijgt als 
waarde dus &. Nu wordt A (en c indien nog niet gebeurt) teruggezet en komt B op 
het berd (in het geheugen), Nu herhaalt zich het hele spelletje. De computer 
vindt voor d, e en f de waarden 19, 24 resp. 21. De waarde die B krijgt is dus 
19, Op dit moment is zet B de zet die de computer zal uitvoeren, immers nu kiest 
hij de hoogste waarde, Nu wordt de laatste zet, C, geprobeerd. De computer vindt 
na C de zet g. De waarde van qg wordt berekend, het blijkt 5 te zijn. We weten 
dat de waarde van C het minimum van zijn nakomelingen is, dus C <= 5. Het is dus 
helemaal niet nodig om de zetten hen i te waarderen cf zelfs maar te 
genereren!!, Immers B (19) is altijd meer dan wat er bíj C uit kan Komen! We 
snoeien dus in de boom (Eng.: cut-off), De zet g die dit veroorzaakte heet in 
het Engels de ‘refutation move’, In de meeste literatuur komt. men de meer 
toepasselijke naam ‘killer’ tegen. Verderop komen Killers nog eens aan de erde. 
De naam van dit algoritme, alfa-beta, is als volgt te verklaren. Alfa is de 
hoogst gevonden waarde en beta is de laagste. We noemen de snoeiing bij C een 
beta-snoeiing. Als wit, de computer, aan zet is en er vindt een snoeiing plaats 
heet dat een alfa-snoeiing. 

Nog een voorbeeld, 

Computer aan zet met wit, zie figuur 3. Hier vinden we zowel alfa als 
beta-snoeiingen. Bekijk het maar een goed. 

Wiskundig is bewezen dat de uitkomst hetzelfde is bij minimax en alfa-beta. Als 
we d de diepte van de boom noemen (aantal ply) en n de vertakkingsgraad 
(constant!), dan is n*d het aantal eindpunten van de minimax-metode. Bij 
alfa-beta is dit het maximum, maar er kunnen snoeiingen voorkomen. Het minimale 
aantal knooppunten wat onderzocht moet worden is 2&n*{(d/2}-1. Als we het minimum 
zouden kunnen halen is dat een geweldige winst. Neem als voorbeeld d=5 en n=38. 
Minimax geeft 585, ongeveer 80 miljoen eindpunten, Het ideale geval van 
alfa-beta is 2*{50*2.5)-1, ongeveer 18 duizend. Dit is 4451 maal minder !!t, In 
de praktijk zal het nooit ze rigoreus gaan. De vraag is hoe we dit ideaal zo 
goed mogelijk kunnen benaderen. In figuur 3 was er sprake van een tamelijk 
eenvoudige alfa-beta snoeiing, We kunnen soms ook diep in de boom snoeien. Dit 
levert natuurlijk minder op (er valt maar een klein takje weg) dan bij een 
snoeiing aan de stam (er valt dan een zware tak met veel zijtakken weg), maar 
alle kleine beetjes helpen. Een voorbeeld van zo’n diepe snoeiing is figuur 4, 
computer aan zet met wit. 

De waarden van A, B en C zijn niet van belang, de 2 alfa” snoeiingen kunnen 
altijd plaats vinden. Dit is vrij lastig in te zien. Probeer het zelf eens door 
C>2 te nemen en daarna door aan te nemen dat C altijd kleiner is dan D. Na enig 
denkwerk of gewoon proberen moet het wel lukken, 

Killers. 

Het blijkt in de praktijk dat het nuttig is om killers te onthouden. Als we nl. 
een nieuwe tak gaan onderzoeken en als de killer een legale zet is, zal het 
regelmatig voorkomen dat deze killer ook hier voor een alfa of beta-snoeiing kan 
zorgen. Als geeneen killer werkt hebben we pech gehad. De tijd die ermee gemoeid 
is weegt bijna altijd op tegen de winst die we ermee kunnen behalen. Er zijn nog 
meer mogelijkheden om het rendement van de alfa-beta-algoritme te verbeteren. 
Sorteren. 

De volgende 2 bomen (figuur Sa en Sb) hebben dezelfde eindpunten. De eerste boom 
(äa) moet volledig doorlopen worden. Het is uitgerekend de laatste zet die de 
doorslag geeft. In dit geval heeft alfa-beta precies hetzelfde gedaan als 
minimax zou doen, Bezien we nu figuur Sb. In dit geval kan er maar liefst in 4 
van de 9 gevallen een alfa-snoeiing plaats vinden, Let eens op de volgorde van 
de waarden. Met wit aan zet zijn de zetten waaruit gekozen moet worden 
gesorteerd van hoog naar laag. Met zwart aan zet is dat van laag naar hoog. Met 
andere woorden, zorg ervoor dat de zetten gesorteerd zijn van goed naar slecht. 
Als je dit op iedere ply doet is alfa-beta zeer efficient. Voor de 
duidelijkheid, voor zwart is een zet met een lage waarde gunstig, er wordt dan 
van laag naär hoog gesorteerd. Probleem is natuurlijk hoe we de beste zetten 


PAG. 28 ALURN NIEUWS COMPUTERDENKSPELEN REINIER GERRITSEN 


vooraan krijgen. Een slimmerik kwam op het idee om dat te doen door de 
alfa-beta-algoritme zelf. Als we n ply diep moeten zoeken, sorteren we eerst net 
een n=-1 ply zoekroutine, die op zijn beurt weer aet een n-2 ply routine enz. Als 
we dus aet het echte zoekwerk beginnen staan de zetten al heel redelijk op 
volgorde zodat er aan de wortel van de boom al flink gesnoeid kan worden, De 
tijd die met dit vooronderzoek gemoeid is weegt zeker op tegen de winst die we 
ermee kunnen bereiken. Er vallen immers veel takken weg als de zetten goed 
geordend zijn. Zo komen we tot een iteratief alfa-beta-algoritme. Een 
voorbeeldje uit het boek van Van Herik (zie literatuurlijst). Stel dat een 
gewone 5 ply alfa-beta zoekprocedure 120 seconden vereist. Dan kost de 
iteratieve versie de som van achtereenvolgens een 2, 3, 4 en 5 piy 
zoekprocedure, dat is ongeveer 1+3+12460=76 seconden. Een winst van 44 seconden. 
Een bijkomend voordeel van deze metode is dat de computer altijd een ‘beste zet’ 
heeft, namelijk die uit de laatst gedane zoekprocedure. Dit is vooral van belang 
voor de tijdbeheersing. In geval van tijdnood of als de tegenspeler de computer 
wil dwingen een zet te doen kan dat dus met minder risico's dan wanneer er 
midden in het zoekproces wordt gestopt. We zijn nu zo ongeveer door de 
belangrijkste truc’s heen. Er zijn nog wel wat andere, maar het zou te ver 
voeren om daar nu op ín te gaan. Misschien een volgende keer. In de 
literatuurlijst staan voldoende boeken vermeld om er wat meer over te weten te 
komen. Ik hoop dat u met plezier dit verhaal heeft gelezen en dat het niet al te 
moeilijk was. U kunt deze kennis gebruiken bij het zelf maken van 
computerspelen, zoals schaak, dammen, vier op gen rij, go, reversi en vele 
andere denkspelen, Ik ben van plan om het spel vier op een rij of kruisje-rondje 
te gaan maken met een type A-strategie, iteratief alfa-beta get killers. Dat 
klinkt wel aardig. Een en ander om eens te kijken hoe je dit in een programma 
kunt gieten. 

Literatuur. 

Zeer de moeite waard is het 638 bladzijden tellende boek van dr. H.J. van den 
Herik, Computerschaak, Schaakwereld en Kunstmatige Intelligentie. Hij is erop 
gepromoveerd. Het is uitgegeven door Academic Service. Het boek bevat overigens 
een zeer uitgebreide literatuurlijst. 

Verder Nederlandstalig leesvoer is te vinden in veel tijdschriften, Databus, 
HCC-nieuwsbrief en het clubblad computerschaak van de CSVN, Computer Schaak 
Vereniging Nederland. In Acorn-Nieuws 6, 1983, heeft RK. Vansteenkiste een 
lezenswaardig verhaal geschreven over het opslaan van een stelling in het 
geheugen en het genereren van zetten, Ik raad u aan dat verhaal nog eens te 
lezen vaor u aan het programmeren slaat, Een soortgelijk artikel (iets 
uitgebreider) is te vinden in Elektuur (!} januari '79, 

Verder is er nog vrij veel Engelstalige literatuur, ik volsta met enkele titels: 
The chess computer book, T‚D. Harding, 

The world computer chess championship Stockholm, J. Hayes en D. Levy, 

All about chess and computers, D. Levy en M, Newborn, 

Chess and computers, D. Levy, 

Computer chess, M. Newborn, 

Chess skill in man and machine, P‚W, Frey, 

Computer game-playing : Theory and Practise, M.A. Bramer, 

Vooral het laatste boek vond ik interessant, het is nog niet zo lang geïeden 
verschenen. Het bevat een verzameling artikels over schaak, reversi, go en nag 
enkele spelen, Er staan ook een aantal stukken in van Nederlanders, o.a. van Van 
den Herik. 

Mocht u vragen, of opmerkingen hebben, schrijf even een briefje of kom naar de 
regionale bijeenkomsten van Brabant-Oost, Eventuele reakties op dit verhaal zal 
ik als u daar geen bezwaar tegen maakt gebruiken voor nieuwe artikels, die ook 
in de STACK-pointer, het blad van de computerclub van de TH Eindhoven geplaatst 
worden. Daar gaan we met een aantal studenten een schaakprogramma maken. 
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Bij experimenten met de point plot routine verbaasde ík mij over de snelheid 
waarmee in machinetaal punten geplet kunnen worden. Het onderstaande programma 
geeft hiervan een demonstratie 


18 REM PLOT DEMO 

28 

38 DIM PP(2) 

40 FOR N=@ TO 2; PPN=300;N 
58 P.$21; GOS.p 

68 P.$6; G0S.p 

70 CLEAR4; LINK PPG 


88 END 
VOpP=tSE2D 

100 

110:PPO LDA@2; STARSE 

158 LDA@O; STA#5A; STARSB; STA#9 
140 STAR5C; STARSD 

156:PP1 JSRHF7AA 

168 INC#SA; INC#SC 

180 BNE PP1 

190 LDA#5A; CLC; ADC#91; STARSA 
195 BNE PP1 

196 INC&?1; INCSSis JMP PPI 

200: 

210 RETURN 


BEHOORD BIJ VORIG ARTIKEL 
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MINI-SCHAKELKAART 


Ik heb nu reeds enkele weken een MENISCHAKELKAART in mijn ATOM zitten en deze 
werkt nu naar volle tevredenheid. 

Vooral in het begin had ik moeite om het kaartje aan de gang te krijgen, maar 
toen bleek al gauw dat de voedingsspanning op de 745266 nogal kritisch kwam. 
Bij mijn computer was de spanning op dit IC 4,& VOLT wat 8,15 VOLT te laag bleek 
te zijn volgens de specificaties van dit IC. 

Na het opschroeven van de spanning tot ongeveer S5 VOLT op de LS266 werkte het 


kaartje prima. 


Al gauw blijkt dat het aan en uit schakelen van de RAM nogal lastig is wanneer 
men geen BOOTSTRAP heeft. 

Na enige tijd zoeken en experimenteren bleek dat dit probleem vrij simpel op te 
lossen was. 

Met een tweede 74LSD0 die op de 74LS266 gestapeld wordt kan men dit realiseren. 
De 74L50E moet dan volgens TEKENING 1 aangesloten worden. 






PEN 8 


TEKENING 1 
A15 


A12 komt overeen met PEN 1 van de 74L5266, 
AIS komt overeen met PEN 13 van de 74L5266, 
A14 komt overeen met PEN B van de 74L5266, 
A15 komt overeen met PEN & van de 7405266. 


Uiteraard worden de voedinspennen 8 en 14 vok doerverbonden, 

Mannneer men nu de computer aanzet wordt de RAM aangezet, BEHALVE wanneer met de 
DIP-switches de RAM op #A200 geselecteert staat, Alleen in dit geval moet de RAM 
aangezet worden. Om eventuele beinvloeding op de VIA te voorkomen moet het 
spoortje dat van CONNECTERPEN 8 naar PEN ft van de LS0G loopt doorgekrast worden 
en over dit spoortje wordt nu een DIODE gesoldeerd in de richting volgens 
TEKENING 2. 

Wil men deze schakeling IN- of UIT kunnen schakelen dan moet het draadje dat van 
de gestapelde 74500 komt nu NIET naar CONNECTORPEN 8 maar naar de DIP-switch 
die naast de WP-DIP-switch zit gaan en de andere pool naar PEN 1 van de LSO. 
staat de DIP-switch ON dan is de schakeling ACTIEF en staat de DIP-switch OFF 
dan is het schakelkaartje weer origineel. 
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Ran | TI PEN 8 
HAAR VIA 

Ee 

— 

[sor |C TEKENING @ 


Verder heb ík S0S.CK versie 6 aangepast voor gebruik van de MINISCHAKELKAART, 

De FLOATING-POINT moet natuurlijk aangepast zijn volgens ACORN NIENS Nr,2 APRIL 
1985 blz.74, 

De veranderingen die ín het programma aangebracht meeten worden zijn de 
volgende: 





330:DD2 LDAMs JSRDD1 1 
388 INCM;LDAM; AND@R31; STAK 
610 LDAM+7; STAM; JSRDD11;:DD1G 
650 :DD4 LDAM; JSRDD4 1 

698 LDA M+74STAM; JSRDDA 14 : DDI 
711:DD11 AND@3; BNEDD1 2; JSRDD1 5; LDA#B800; ORAG1; STAHEBDO: RTS 
712: DO12JERDD1 3; LDA#BEO; ANDEHFE; STA#BEUO; RTS 

713:DD13 LDA#B802; DRAG; STA#BOG2I RTS 

IED... 3LDAHEU42; STAM; JSRDDLLG PLAS 

970 . „5SEI; STAM; JSRDDi 1; PLA; 
LDAH+U+23 STAM; ISRDO113 JMP... 

„3 LDAH+U42; STAM; JSRDD1 13 LDAM+23 

«3PLA: STAM: JSRDDE 1; LDAM+23 «ee. 
LDAH+U+2; STAM; JSRDDS 1; LDAM+ 
;PLA; STAM; JSRDD1 13 LDAM+2; . 












7808 . 














1222 . STAM; JSRDDI1 
1308 „ STAM; JSRDD11 
2268 . STAM; JERDDI 4 


Het gebruik van de ZERO-page adressen #21C tot #23F heb ik verzet naar #97DC tot 
H9IFF omdat de GAGS-ROM ook van deze ZERO-page adressen gebruikt maakt. 


Met het SCHAKELKAARTJE werken gaat nu een stuk fijner want wanneer men in de RAM 
een soft-schakelsysteem heeft staan is deze meteen actief bij het opstarten van 
de computer. 
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READY--TEST voor dee ACORN disk 


De ACORN disk-drive heeft sons de vervelende eigenschap te blijven draaien als 
er geen schijf in zit en er toch een poging gedaan wordt iets van de schijf te 
lezen of erop te schrijven. 

Bij de originele disk-controler-kaart van ACORN is er echter gen mogelijkheid om 
te testen cf er een schijf aartwezig is. 

Het hierbij afgedrukte progranma * READY ‘ voert zo'n test uit, Een en ander is 
gerealiseerd door gedurende een bepaalde tijd te kijken of de drive het zg. 
ready-signaal geeft. Is dit niet het geval, dan is er blijkbaar geen schijf in 
de drive aanwezig. 


Het ready-signaal wordt actief op het moment dat een aparte schakeling op de 
controlerkaart aangeeft dat de schijf op toeren is. De schakeling bekijkt 
hiervoor de tijd tussen twee index-puisen. Deze pulsen geven het passeren van 
het index-gat aan, Ligt die tijd binnen bepaalde grenzen, dan is de drive ready. 


Als het ready-signaal niet op tijd kont, wordt de drive gereset (JSRHEBBO) . 
Hierdoor stopt de motor meteen, 


Helaas werkt het programma niet voor de TELEC-kaart omdat de controler helemaal 
niet test of de drive op toeren is (foei LE). 

Hverigens worden door het ontbreken van deze test ook de problemen met FORM4G en 
VERIFY veroorzaakt (gaat soms goed met de TELEC-kaart, maar gaat aìtijd goed met 
ACDRN-kaart), 


18 PROGRAM READY 


30 REM BY FRANS VAN HOESEL 
40 DIM LLS;FOR 1=0 TO 5;LL1=999;N, 

50 P=R5000;P. $21;60S, a 

62 P=#5000;P. $6; GOS. a 

70 END 

80at 

90: LLO;LDAHEDRO; CHPEHAI ENE LL2 

108 LDA #EDOL;CMP@KBIJ BEG LL3 

110:LL2; JSRAFIDA; J; P=BAAGP?1=RED; $P+2="DOS NOT AVAILABLE" 
120 P=P+2HLEN(P+2) ; 7P=#0AG P?1=HDD; P=P +2; [NOP;RTS 

130: LL 3; LDAER3A; JSRHE7DB 

148 LDA@#8O; STAKHEE;LDYEG 

150 LDA@#23; JSRHEBOI 

169 LDA@#4B; JSRHEGOS 

170 LDXe#s0 

180:LL4; JSRRE77A; BNE LLS 

198 JSRHFELG;DEX;BNE LL4 
200 JSRRFTD1; J; 2P=HOA;P?1=#00;P=P+23 SP="DRIVE NOT READY" 
210 P=P+LEN(P) ; 2P=KDA; P?1=80D; P=P+2; [NOP JMP#ECIO 
220:LL5; RTS 
2301 
248 RETURN 


DE SCHAKELKAART JAN BIEL ACORN NIEUWS PAG. 55 





DE SCHAKELKAART 


Gezien het grote aantal nieuwe leden lijkt het mij zinvol een en ander rond de 
schakelkaart nog eens op een rijtje te zetten. 


Algemeen 


— De kaart biedt plaats aan maximaal & EPROM's (äk — type 2552) en maximaal 4 
blekken van 4k RAM (type &t1& CMOS). 

= De EPROM's en 2 van de 4 RAM blokken staan parallel op een en dezelfde pagina 
en hiervan kan er m.b.v. een schakelbyte 1 geselecteerd worden. De overige 2 RAM 
blokken staan eveneens parallel en hiervan is steeds 1 blok geselecteerd. 

!lOpm, bij dit model schakelkaart is het niet mogelijk om op eenvoudige wijze 
EPROM's van het type 2752 (i.p.v, 2532) te plaatsen, Greerit itt 


Het schema 


Dit treft u aan in ACORNNIEUWS nr. 7 irg 1984 blz. 50. 

= Mb.v. ICL t/m ICS worden de adres- en datalijnen afkomstig van de ATOM 
gebufferd, 

- Ice Sen IC 6 verzorgen het selecteren van het gewenste blok (meestal 
waarschijklijk op de A- en E-pagìna). De ligging van de deze blokken kan indien 
gewenst naar eigen keuze aangepast worden m.b.v. IC 7. 

- De EPROM's komen op de plaatsen IC14 t/m IC1®, 

— De CMOS RAMmen komen op de plaatsen IC20 t/m 27 

= De kaart kan eventueel met schakelaar Si aan of uit gezet worden. De 
aansluitpunten voor deze schakelaar zitten aan de soldeerzijde onder IC7. Bij 
levering van de print zijn twee van de drie aansluitpunten reeds doorverbonden 
zodanig dat de kaart aan staat. 

= Met schakelaar 52 kan het RAM gedeelte van de kaart op Write protect gezet 
worden m.b.v o.a ICI2 en IC13. De schakelaar wordt aangesloten tussen massa en 
de kant van RSt welke ap de print het dichtst bij de draadbrug zit, 

= EIL tenstotte verzorgt de sturing van een 7-segment display waarop te zien is 
welk A-blok geselecteerd is. De aansluitingen van de TIL 312 zijn hieronder 
gegeven 


9 AA PLE 





3 ê 


= Wilt U geen battery back-up voor de CMOS RAN's dan kunt U R24 en D1 weglaten. 
= Wilt U geen display aansluiten dan kunt U R32 t/m RSB en IC1t weglaten. 

- Schakelaar Si is alleen aadig wanneer U de kaart in z’n geheel AAN dan wel UIT 
wilt zetten en 52 alleen wanneer U de RAM blokken op Write protect wilt kunnen 
zetten. 


M.b.v. de drie soldeereilandjes A, Ben E op de print kunnen we de plaats van de 
EPROM's met 1 RAM blok, het tweede RAM blok en het schakelbyte naar eigen wens 
vastleggen. In de meeste gevallen zal dit resp. het A-blok, E-blok of 1-btok en 
BFFF zijn, 
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Het instellen van deze gebieden gebeurt met de uitgangen van IC7. Door een 
vreemde gedachten kronkel van de ontwerper van de kaart gebeurt dit op een nogal 
vreende wijze. Dit komt omdat op de LSB-ingang van de 74ls154 {IC7) de 
MSB-adreslijn (AIS) is aangesloten. Derhalve ziet de decodering er als volgt 


uit: 


al 
x 
x 
X 


XERQ 
NARE 





Het aansluiten van de kaart aan de ATOM 


U kunt de kaart zowel in een 19" rack als in de kast van de ATOM geplaatst 
worden. 


It Bij plaatsing in een rack en het gebruik van een 64 polige haakse male 
connector (aan componentenzijde van de print) moet U wel eerst op de kaart de 
verbindingen tussen beide connector-rijen wegkrassen, Doet U dat niet dan is de 
kans groot dat U onder andere de VIA opblaast. !I4tItt 


Tevens dient U er rekening mee te houden dat bij de connector PL7 van de ATOM de 
aen c rij aansluitingen precies omgekeerd zijn aan die van PL&. {Dus Pléa = 
PL?c en Pléc = PL7a) 


Bij plaatsing in de ATD kast monteert U op de schakelkaart print een rechte 32 
pelige (1 rij dus) male connector aan de soldeerzijde van de print. In de ATOM 
wordt nu op de plaats van connector PLé een 64 polige rechte female connector 
gemonteerd. De schakelkaart komt dan in de bovenste rij hievan {!! boven = 
achterkant ATOM !!), 

Is PLé al bezet (bv. door 1ék geheugen kaart) en U wilt toch de schakelkaart 
inbouwen in de ATOM kast dan zult U zelf iets moeten bedenken voor het 


aansluiten van de kaart aan de ATOM bus, 


Het schakelen 


In de meeste gevallen zal het schakelen met #BFFF als schakelbyte gebeuren. 

Dit is een Write-only byte; wanneer U geen display gebruikt om aan te geven 
welke blok U geselecteerd heeft kunt U dat dus niet met P. ?#BFFE opvragen, 

Van het schakelbyte worden de bits @ t/m 3 gebruikt om het gewenste A=blok te 
selecteren. De bits 6 en 7 dienen voor het selecteren van de E-blokken. De bits 
4 t/m 6 worden niet gebruikt. Zie ook onderstaande figuur. 
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27 Ee dek La DIX xl: | 








N= 
B - Woldan 

Indeling van de blokken: 
#BEFF blok IC's 

] AB 24 en 25 

1 At 29 en 21 

2 AZ 18 

3 AS 17 

4 A4 1B 

kel AS 19 

6 Ab 14 

7 A7 15 
#Ox EB 22 en 23 
Bx El 24 en 27 


Het buiten de bus brengen van het Á- blok en #BFFF 


Dit kan op uiterst eenvoudige wijze als volgt gerealiseerd worden: (zie schema 
ATOM) 


Van IC5 (74L530) pen 1 uitbuigen. Soldeer hieraan van 2 diodes (IN4148) de anode 
kant; de kathodes komen resp. aan pen 13 van 1C23 (74LS138) en pen 7 van 1C4? 
(7418139), Deze laatste 2 pennen hoeven niet uitgebogen te worden. 


Alternatief; Pen 4 van ICB (74L500) uitbuigen. 


Hieraan 3 diodes met anode kant; kathodes resp. naar pen 13 en pen 9 van IC23 en 
pen 7 van IC49. Laatstgenoemde 3 pennen niet uitbuigen. 


—__i_- 
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De afgelopen paar maanden ben ik nogaì betrokken geweest bij de verbetering en 
uitbreiding van de BBC MOS ROM die op het BBCkaartje van (nu) #1.79,== zit 

Elders in dit blaadje kun je alles over deze niet zo geweldige ROM lezen en hoe 
hij is omgebouwd tot iets dat z’n geld wel waard is. 

Door deze betrokkenheid word je af en toe met je neus op de ins en outs van 
BBC-basic gedrukt, hetgeen soas tot nieuwe ideeen leidt om op de Atom te 
iaplementeren. Een van deze ideeen is ‘t OSCLI-statenent. Je zult overigens 
zometeen wel merken dat ík al volop bezig ben met utilities voor mijn toekomstig 
DOS (ha,‚ha). 

Eerst even wat uitleg. 

Zoals bekend (ja toch?), kun je in een programma stercommando's gebruiken bv. 
*LOAD"naam". In de meeste gevallen heb je aan deze mogelijkheid genoeg, maar 
sons kun je zulk soort commando's niet mooi progranmeren en moet je je toevlucht 
nemen tot trucs. 

Voorbeeld. 

Je wilt afhankelijk van een INPUT D een drive selecteren: 


mogelijkheden: 


IF D=@ THEN #DRIVEG 1 78EE = D 1 CASE D OF 

IF D=l THEN *DRIVEL : 1 <O> DRIVER 

IF D=2 THEN *DRIVE2 ĳ ' €1> #DRIVEL 

IF D=3 THEN #DRIVES ĳ 1 <2) *DRIVE2 
Î ĳ 


<5> *DRIVES 
CEND 


Dit is nog wel te doen, maar bijv. hij #S5ETq heb je geen 4,maar 256 
mogelijkheden en blijft alleen de tweede oplossing over: ?#AC = q. En #USEq moet 
dan weer via ?#DC = q. Wordt het je al een beetje ingewikkeld? Prima, dan gaan 
we door. 

Als je een file wilt laden op een te kiezen adres dan kan dat via DSLOAD (zie 
Atomic theory and practice, H.25 p.t?i)s 


x= #88 

$#28508 = “naam” 
Ix = #2820 

X!2 = gekozen adres 

XxI4 = #89 

LINK OSLOAD i.c. LINK #FFEG 


Moet het nog moeilijker? Dan nemen we QSSAVE als voorbeeld 


x= #58 
$#2800 = "naam" 
IX = #2800 


X!2 = basis adres b.v. #8008 
XI4 = exec adres b.v. #C2B2 
Xl6 = start adres b‚v. #6840 
K!B = eind adres b.v. #86080 
LINK OSSAVE i.c. LINK #FFDD 








Deze laatste methodes zijn nochtans daarom te preferen omdat ze gedocumenteerd 
zijn en dus ook onder andere operating systems te gebruiken zijn. Maar bij 
gebrek aan een dergelijke constructie voor b.v. #5ETq moet er toch eigenlijk wel 
gebruik worden gemaakt van een methode die voor alle stercommando's in principe 
hetzelfde is. De methode die ik daarvoor reeds heb, bestaat uit het maken van 
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een “stercommandostring" (zonder sterretje) op #180 gevolgd door het LINKen naar 
#FFF7 CUSCLI). Dit zou je zelfs een gedocumenteerde actie kunnen noemen. 
Voorbeeld: 

In D staat een drivenummer; #DRIVED kan niet, dus moet het zo: 

$#100=" DRIVE"; ?#105ED+#50; 2#106=CH" "LINK HFFF7 


Nu zijn er ook lieden die een andere “universele* methode aanhouden en wel via 
ten nu komt er een heel vies woord) zelfmoditicerende programma's. Zie bijv. 
TEK-PLOT in AcornNieuws 4,6 p.72, waar de naam gePOKEd wordt op de plek "E-63". 
E heeft de waarde #4663 (regel 5005) en zal wel zoiets als TOP zijn, hoewel TOP 
zelf op #7F08 staat (regel 5). Achter de naam worden dan nog de cijfers 4, 6, 6 
en 1 gePOKEd (regel 5080).Vervolgens wordt regel 5898 uitgevoerd waar inmiddels 
een correct stercommando is opgebouwd. 

Als je niet donders goed oplet wat je aan het doen bent, kan je dat op deze 
manier een heel programma kosten. Door het toevoegen of weghalen van een regel 
moet (in dit geval) de waarde van E veranderd worden,de verschuivingsfactor 63 
kan soms verkeerd uitkomen enz. etc, usw. Een LOAD kan dan desastreuze gevolgen 
hebben. 


Hoe doen we het nu echt netjes? Wel, we maken een statement (iedereen kan dat 
tegenwoordig) b.v. OSCLI waarna het stercommanda als losse PRINT-items mag 
worden ingevoerd. Op het moment dat er een CR ($15) "gegeven" wordt, wordt het 
commando uitgevoerd. Voorbeelden maken dit stukken duidelijker dan ik ooit kan 
vertellen. 


In 6 staat de ascii-code van een qualifier: 

OSCLI "SET",5Q,$15 

In Q staat een cijfer als qualifier: 

@=2;OSCLI "SET",Q,$13 

In D staat een drivenummer: 

QSCLI "DRIVE*D,$13 

Het laden van de file FILE op adres A (=#4900) 

OSCLI “LOAD “"FILE""",A,$15 

Het laden van een file die met INFUT$#2900 is opgevraagd: 
OSCLI "LOAD",$#2828, 815 

Het geven van een directory ep een schoon scherm: 

OSELI "TITLE",$t2, "ADVENTURES" ,$15 

Het hernoemen van files (mits je Decados hebt ingebouwd): 
DIM AC1),B(7),C(1},D(7) 

INPUT"QUALIFIER OUDE FILE"$A 

INPUT"NAAM VAN DE OUDE FILE"$B 

INPUT"QUALIFIER NIEUWE FILE"$C 

INPUT"NAAM VAN DE NIEUWE FILE"$D 

OSCLI "RENAME "$?7A":"$B" “$9C*:"&D$13 


Zoals je ziet eindigt elke OSCLI met een $13. Dit MOET, anders blijft het 
systeem hangen, maar dat doet het pok na LINK #FF7F, dus... ten zo kun je je 
overal uit praten) 
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za \\etn OSCLI ten 





= 13 
#8C 
48D 
= #8E 
TBswrcver  = #208 
88 
9dsoscli ;\ entry 
198 Ida wrevectt; 
118 Ida wrevec 5 
120 lda@{newwrc)/2, 
138 1da@(newwrc} 2 
148 lda@#2B; sta i 
158 pla; pla; jmp 


168: nenwrc 


178 php; stx savex 
188 ldx index; sta 
198 stx index; ldx 
208 cmp@CR; beg ex 
218 plp 

220 rts 

230:exec 

248 pla 

258 Ida saverctlj 
268 1lda savwrc 5 
278 isr #FFF7 

288 Idy #06; dey; 
290 jmp #C558 

308 imp #C2CF 


noot van de redaktie: 


bovenstaande routine moet men 


AN 
$\ commando index 
s\ save X-register 
;\ pointer 
3\ vector 
point 
sta savwrcti 3\ 
sta savwrc 
563 sta wrevectì ;\ 
56; sta wrevec 
ndex z\ 
#C334 $\ PRINT! ;\ 


bewaar wrc-vector 
init nwe wrc routine 


clear index 
ga items printen 


3\ bewaar status 

#100,x; cpx@60; bos P+3j inx 

savex 3\ char bijgeschreven 

ec z\ CR? —> afsluiten & exec 
;\ restore status 
3\ gooi stack iten weg 


sta wrovec+1 
sta wrevec 


beg P+5 


compleet afgewerkt geheel. 


restore wrc routine 


exec commando 
direct mode? 
nee, ga verder 
ja, stop 


zelf in zijn systeem inbouwen en 


is dus niet een 
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3 KOLOMS WORDPACK 


Beschrijving van de aanpassing ván de naar 80-kolomnen Elektuur VDU omgebouwde 
Word Pack aan “andere” 1/0- en/of RAMadressen. 


Destijds was tekstverwerking op 89 kolommen voor mij de enige echte reden om de 
Elektuur VDU-kaart aan te schaffen. 

Na het schrijven van de basis VDU-rautines werden deze in de Acornsoft Word Pack 
geimplanteerd op een niet zo geavanceerde, maar nochtans werkende manier. Uit 
reacties bleek dat velen wel gecharmeerd waren van deze combinatie; gen aantal 
nadelen van het beperkte WP-scherm was volledig verdwenen. Er bleek echter ook 
dat er nogal wat verschillende VDU-kaarten in omloop waren. 

Aangezien zowel de controller als het beeldschermgeheugen “memory mapped" zijn, 
heeft eenieder zo zijn eigen mening over de plaatsing ervan, De controller jag 
over het algemeen op een vaste plaats: #BFFO,#BFFI. Er was een uitzondering: 
#1800,#1821. 

Gua memory map ligt de keuze van #9800-#9FFF als beeldschermgeheugen voor de 
hand. 

Gua techniek is #1800-HIFFF (of #1000-#17FF) eenvoudiger. Ikzelf heb het 
geheugen op #80E-#FFF geplaatst. Ik heb toch geen FDC op #A0B. 

Om al deze keuzes te honoreren zijn vijf WP-versies nodig en die zijn er dan ook 
uiteindelijk gekomen, maar het is niet het meest verheven werk dat je cp een 
Atom kunt verrichten. On nu tegeacet te komen aan een eventuele zesde, zevende 
enz. configuratie van de VDU-kaart, heb ík maar weer eens uitgezocht welk 
gedeelte van de WP I/O-afhanketijk is. 

Stel dat in H de waarde staat van het high byte van het eerste adres van uw 
beeldschermgeheuvgen, b.v. #98 voor de eerstgenoemde mogelijkheid. Dan kunt u op 
deze manier uw reeds naar 88-kolommen omgebouwde WP aanpassen aan uw VDU-kaart: 


PHAD3A = KH ?HAEID = 
IHAEDG = H+7 ?RAEAG 
PRAEGG = H  7RAEAS = 


H_ ?#AEA6G = H+3 ?HAEAF = Ht6 
= Hei PHAEAF = H44 PHAEB2 = H47 
H+2 ?HAEAC = H45 ?HAEBT = H 


Op #AEDS staat de instructie: STX #BFFS en 

op HAEDB staat de instructie: STA #BFFI. 

Dit zijn de enige plaatsen waar de controller wordt aangesproken, zodat dit 
gedeelte wel heel eenvoudig is aan te passen. 
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Hoewel de meeste Atomeuren onder u een dusdanige hoeveelheid geheugen hebben (in 
de Atom wel te verstaan) dat normale programma’s draaien zonder een ERROR 38 op 
te leveren, wil ik een probleem (en een oplossing ervan) van stal halen uit de 
tijd dat dat bij mij bepaald niet het geval was. 
Doit wenste ik een zgn, "aktieve" Mastermind te maken d.w.z. dat mijn Atoapje 
via het bekende vraag-—en--antwoord--spelletje een code zou "raden" die ik in 
mijn gedachte had, Om het eenvoudig programmeerbaar te maken, bepaalde ik dat de 
code zou bestaan uit een combinatie van 4 cijfers (i.p.v. kleuren). Normaal 
Masternind heeft & kleuren, eventueel aangevuld met zwart, wit en blank. Ik 
stond 18 verschillende cijfers toe, met dien verstande dat de eerste positie 
niet uit een nul mocht bestaan. 
Er zijn diverse strategieen te bedenken om tot de code te geraken, Mijn keuze 
viel op de volgende. 

1. Vul een array met alle mogelijke combinaties 

2. Kies een willekeurig element uit deze array 

3, Verhef dit element tot gok 

4. Zorg voor een antwoord 

S. Sla de gok en het antwoord op 

&. Als de gok gelijk is aan de code: einde programma 

7, Schrap alle elementen die niet aan alle gegeven antwoorden voldoen 

8, Ga naar 2, 
Het aardige van deze strategie is dat hij niet direct uit de gokken herleidbaar 
is. 
De Atom-configuratie die ik destijds tot mijn beschikking had, bestond v.w.b. 
dit programma uit geheugen van #2000 — #3BFF en #8000 — #97FF, Het programma 
paste vanaf #2908 ruimschoots in het geheugen, maar de array, uiteraard vanaf 
#0200, omdat daar het grootste blok RAM zat, paste er niet in. Ga maar na: de 
array moet 9200 getallen bevatten van 4 bytes per stuk, Dat is ongeveer Sák. 
Deze benodigde hoeveelheid kun je at drastisch verminderen door niet eerst de 
array te vullen, maar eerst een getal te vormen, het antwoord te vragen en pas 
dan de array te vullen met de combinaties die dan nog mogelijk zijn. Toch red je 
het zo ook nog niet, want bij het meest ongunstige antwoord hou je 1502 
combinaties over en daar heb je 6k voor nodig en ík had maar 5.Sk. 
Ik bedacht me toen dat getallen van 4 cijfers slechts 2 bytes groot zijn en dat 
van elk element 2 bytes uit nullen bestonden. Dat was een verkwisting die me 
niet aanstond. Ik nam toen mijn toevlucht tot de woordvector, waarbij ik per 
element de pointer niet 4, maar 2 bytes opschoof. Doerdat de array serieel wordt 
behandeld, is het op deze manier ook heel eenvoudig te doen. De 2 nuilen worden 
nl. vanzelf overschreven door het volgende element. Bij het lezen van een 
element krijg je via de !-operator 4 bytes, zodat je de hoogste 2 even moet 
maskeren om het juiste getal te krijgen. 
In feite heb je op deze wijze een Atom-variant van de uit Pascal bekende PACKED 
ARRAY verkregen, hoewel Pascal het nog beter doet door slechts 14 bits per 
element te reserveren i.p.v. 16 hits. Nu kan ik me over 2 bits niet za druk 
maken; wel over 14, zoals u net heeft gelezen. 
Ter illustratie hoe je e.e.a. nu precies moet programmeren, druk ik hierbij het 
onderhavige jeugdwerkje af. 
Zoals in de aanhef van dit verhaal al staat, zal de gemiddelde Atom zoveel 
geheugen bevatten dat er “gewoon” m.b.v. de basicarray's geprogrammeerd kan 
worden, hetgeen bovendien de leesbaarheid vergroot, maar je weet tach maar nocit 
waar en wanneer zo’n voorbeeld nog eens te pas kan komen. 
Bovendien heb ik hiermee gehoor gegeven aan de oproep van een aantal redacties 
“om eens te kijken of ik nog iets in de rommeldaos had liggen dat evek voor 
anderen interessant kan zijn”. 
Hopende dat een goed voorbeeld goed doet volgen etc, etc. etc. 
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REM MASTERMIND 
REM N=AANTAL POSITIES 
N=4; ZN=N 


REM H IS HOOGSTE INDEX 
H=Z (10°N) 


REM V IS HET AANTAL BYTES 
REM NODIG VOOR 1 GETAL 
REM W IS EEN MASKER OM DE 
REM LAGE BYTES VAN HET 
REM VOLGENDE GETAL OM TE 
REM ZETTEN IN LEIDENDE 
REM NULLEN VOOR DIT GETAL 
Vad; WeBFFFEFFFF 
IF N<B V=5j 
IF N<5 V=2; 
IF NS VeljW=tFF 





@=2 
DIM BGN ,CC(N) 


REM PLAATS DE GROTE ARRAY 
REM IN DE GRAPHICS 
D=#8200-V;REM START 
U=$97FF-V;REM EIND 

REM U WORDT (H9FFF-V) IN 
REM GEVAL VAN BK GRAPHICS 


REM 'GET KEY’ CONSTRUCTIE 
P=#2887;P.$21 


S2OEJSR HFFE3; STA #90; RTS; 3 


350 
540 
358 
360 
378 
380 
350 
400 
410 
420 
450 
4408 
450 
4608 
478 
480 
490 
500 
518 
528 


P, $4;P=#2887 


REM WELKOM 
P‚$12" Kek HASTERMIND tmex'’”* 
P‚*U KENT DAT SPELLETJE WEL, HE?’ 
P. "HET GAAT EROM DAT U EEN ONBE-": 
P."KENDE CODE PROBEERT TE 'BREKEN'“" 
P 

e 





«"IN DIT GEVAL ECHTER ZAL ik PRO- 
„“BEREN uw CODE TE BREKEN, *** 
P,"VERLANGT U DE SPELREGELS?"'; 
DOL INKP; U. 2#90=740R?#90=78 

REM JA NEE 

IF ?#90=CH"J" GOSUB s 

P.S12"NEEM EEN GETAL IN UW GEDACHTEN" 

P,“TIEP 'K' ALS U KLAAR BENT" "; DOLINKP;U, #9B=CH"K";P.$12 


REM MAAK EERSTE GETAL. 
REM (N VERSCH. CIJFERS) 
GEL=ABSRND49+1 

FOR I=2 TO N 


530a GGI=ABSRNDA9+1 


540 
550 
568 
570 
588 
5e 


FOR J=1 TO I-1 
IF GBI=GEJ J=9 
NEXT J 

IF J=i8 GOTO a 

NEXT I 

G=B 


2 
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409 
610 
628 
630 
640 
650 
660 
670 
688 
698 
788 
718 
728 
738 
740 
758 
760 
770 
780 
790 
690 
818 
B29 
838 
840 
858 
B68 
878 
8889 
878 
„00 
918 
928i 
958 
940 
950p 
9e 
978c: 
„an 
928 
1008 
1210 
1828 
1450 
1848 
1858 
1868 
1878 
1880 
1890 
1188 
1118 
1128 
1138 
140 
1158 
1168 
1178 
1188 


FOR Iet TON 
6=6#10+B61 
NEXT I 


Tet 
REM EERSTE GETAL KRIJGT 
REM SPECIALE BEHANDELING 
P.“MIJN GOK NO. *T" IS: *G' 
FIN.“WAT 18 DAAROP UW ANTWOORD "ZA 
FIF ZA=N GOTO e 
A=l HALO. 1D 
IF A=(N-1)#10+1 GOTO b 
X=G 
FOR IN TO 1 STEP -1 
BEI=X%10; K=X/10 
NEXT 1 
FOR I=H/10+1 TO H 
kel 
FOR J=N TG 1 STEP -1 
CCJ=K4 10; K=X/10 
NEXT J 
R=0; M=0 
FOR JeN TO f STEP -1 
Y=G6J 
IF CCJ=Y R=R+10;K=J;GOTO 9 
FOR K=N TO 1 STEP —1 
IF CCK=Y R=R+1;GOTD 9 
NEXT K 
IF MSK niek 
IF R<zA GOTD 1 
IE MN F=l (AD (N-M)D +1 I= (I/FHI) AFL 
G0TO p 
NEXT J 
IF D>U P. °°" "GEHEUGEN IS OP!!!1*;STOP 
IF R=A D=D+V; | 
IF 2#BOBILDAFF P.“C: “I" Gr “G* 'RSLILINK-29 
NEXT 1 
H= (D-#8208+V1 /V 
IF H=D GOTO b 





REM VOLGENDE BETALLEN 
REM KUNNEN IN ‘LOOP’ 
D=#B280-V 
DO T=T+1 
P. "AANTAL MOGELIJKHEDEN: "H° 
REM KIES VOLGEND GETAL 
SaV& LABSRNDZH+1) 
G=D! S&N 
P‚“MIJN GOK NO. “T* IS: *G' 
FIN„“WAT IS DAAROP UW ANTWOORD "XA 
FIF ZA=iN GOTO e 
Azt(XAR10, 1) 
5=8 
x=6 
FOR I=N TO 1 STEP -1 
GGI=XX18; X=k/18 
NEXT 1 
FOR IeV TO VeH STEP V 
X=Di IM 
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1190 FOR J=N TO 1 STEP —1 
{200 GCJ=X410; X=X/ 10 
£210 NEXT J 
1220 _R=8 
1250 FOR J=t TO N 
1240 Y=G83 
1254 IF CEJ=Y R=R+10;GOTO j 
1260 FOR K=l TO N 
1270 IF CCK=Y R=R+1;BOTD j 
1250 NEXT K 
1290j NEXT 3 
1508 IF R=A S=S+V;IF SC>I D'S=DII&W 
1510 IF ?#$BOBIC>HFF P.“C: "DEI&W" Grz 
1328 NEXT I 
1358 H=5/V 
1348 IF H=8 U.1;G0TO b 
1558 UNTIL 0 
1568 REM FOUTE BOEL 
1570bP. "IK VIND GEEN OPLOSSING. ** 
1388 P."IK DENK DAT U EEN FOUTJE HEEFT" "GEMAAKT, """ 
1398 REM "EPILOOG" 
1400eP. "DAT WAS HET DAN,"““TOT ZIENS," 
1410 END 
1428 REM SPELREGELS 
145QsP.$12" spelregels" $#3A" 
1440 P,"IK DOE EEN GOOI NAAR UW CODE. “” 
1450 P.“U WAARDEERT VERVOLGENS ELK VAN" 
14650 P."DE CIJFERS VAN MIJN GOK EN" 
1478 P,"VERTELT MIJ DAN HET TOTAAL VAN!" 
1482 P. "IEDERE WAARDERING. "’ 
1490 P," waardering" S#9A' 
1582 P. "ZWART “GOED CIJFER OP GOEDE PLAATS" 
1518 P, "WIT “GOED CIJFER OP VERKEERDE PLAATS" 
1520 P. "NIKS :"" "VERKEERD CIJFER" 
15530 P. "VOORBEELD VOOR 4 POSITIES ?"’ 
1548 DOL INKP; U. ?#90=740RI#90=78 
1550 IF ?#9D=CH"J" GOSUB v 
1563 RETURN 
1570vREM VOORBEELD 
1588 P.$12" voorbeeld"$#9A' 
1590 P,“UW CODE IS 1982 EN IK RAAD 1592," 
1648 P, "DAN IS HET ANTWOORD 2 ZWARTE EN"’ 
1618 P."1 WITTE (RESP. 1,2 EN 9)" 
1628 P,“U GEEFT DIT AAN ALS VOLGT: 2,1" 
1658 P," ander"S$#80“voorbeeld"S#9A" 
1640 P.“UW CODE IS 1982 EN IK RAAD 4711," 
1650 P,"DAN IS HET ANTWOORD @ ZWARTE EN" 
1660 WITTE (TWEEMAAL DE '17)"” 
1678 P GEEFT DIT AAN ALS VOLGT: 0.2"’ 
1680 P." nag”$#88"een"$#80" voorbeeld" $#IA 
1690 P."UW CODE IS 4711 EN IK RAAD 431B," 
1722 P,“DAN IS HET ANTWOORD 2 ZWARTE EN" 
1718 P."B WITTE (f TELT NU niet DUBBEE)"* 
1720 P."U GEEFT DIT AAN ALS VOLGT: 2.0" 
1730 P."TIEP 'D’ OM DOOR TE GAAN" 
1748 DOL INKP; U. ?#90=CH"D" 
1758 RETURN 
poot van de redaktie: 
heb geduld de atom denkt soms een kwartier na, 





“REL33LINK-29 








PAG. 44 __ ACORN NIEUWS DOBBEL BRAM THIJSSE 





DOBBEL 


18 PROGRAM DOBBEL 
ZOREMKNERRERE EK KEREN EN EEH 

SOREM* BRAM THIJSSE * 

4OREM* A. VERWEIJSTR.20 # 

SOREM* ALPHEN A/D RIJN * 

BOREN Ruter 21-04 -1TE Renee 

70?#24=89B; 12350; 0=3 

BEP. “WORDT DIT SPEL VOOR HET EERST GESPEELD J/N" 
9BINKEY I; IFI=CH"J";6. 1540 

100DIMAA(6) „BB(6) ,0{16) ;F. G=0T06; AAG=0; BBG=0;N. 
110P,812,$8FF "dobbelspel “S4$FFSHFFSAFF 

120P, "van" $AFFSHFF bram“ SHFF“thijsse"S4F 
150P.$#FF "nieuwe" S#FF“speler J/N 2** 
14BINKEY Iz IFI=CH"N";P, “HALLO"S0;F,W=1TOS23WAIT;N. ;6. 160 
158605. d 

i60K=0;L=DjE=0;5=10 

170M=0 

188CLEARD 

198T=0 

200605. f;P,“BEURT"L+{"  *K" PUNTEN *;IF E>D3F.N=ITD E$P."#"jN, 
210605, f; DF=#B1 

220F.D=0T01 

230F.B=0T02 

240T=T+1 

238A=A.R. Lb+1 

288IFI=35;G.c 

278IFI=AAT;G. 350 

288AAT=A 

29ON=#BD214BRI1+DH256 

SOGE0S, 440 

S18G0S. (510+A#20) 

32AF.C=1T015; WAIT; WAIT;N. 

SON. ;N. 

340605. a 

SSBINKEY I 

S&BIFI=CH"E";E. 

S7BIFI=130R I=CH"9"5GOS. f$G. 390 

3806. 410 

590P, "einde" SHFF "van" SAFF "deze" $HFF" beurt" $&FFSAEF 
4QOLel+1;F.W=1TDSO;WAITEN. 3E. b 

ALOM=M+1; IF Mz6;1=57;G. 570 

4201=1-48; 6.190 

43BREM DOB 

440F.G=N-ITO N47; 2G=4FFIN. 

450F,GEN+5ITD N439; 2G=8FE;N. 

46QF,GEN#63TO N47 1; 2G=HEFIN. 

470F.GEN+95T0 N+103; 2G=FFiN. 

ABF. GEN+127T0 N+135; 2G=4FFIN. 

4J0F,GeN-33TD N-253 2G=4CESN. 

5QAF.GEN+159T0 N+1673 IG=HFCIN. 

51AR, 
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S20REMDOB 
S3OPN=EFF; N?G=HFF ; N2G4=HEF ; N767=H7F 
BAON270=HFF 5 N?12B=RFFjN?134=HFFGR. 
SIBPN=#7F; N7G=KFE GE N?G42BEF GN? =HEF 
SGON?7 ZEEF; N7LZE=AFF NI 37E. 
5IDIN=H7Fj N?6=HEFj N?G4=REF | N267=47F 
SBON270=8FF; N21 28=HFF;N?1542H7F;R. 
BIOPN=87F IN? =H; NZGAZHFFIN?67=HFE 
GOON?70=AFF N21 28=H7FjN?134SRTFR. 
G1OIN=#7F EN? 67E EN?AGAFFEN?07 HE 
B2ON270=HFF;N2128=87F;N? 154207; R. 
BIDPN=HTF EN? b=RTF | N7GA=HTF | N? 67 HPF 
GAON27D=KT FN? 128=H7FjN?134=H7FR. 
652a 

&6EF.G=1T06 

&70BBG= 
6BEN. 
69DF.B=1 106 

700BB (AAG) =BE (AAG) +1 

71ON. 

7201FBB1=1; IFBBZ=13 1FBBS=1; IFBB4=1; IFBRS=13 IFBBA= 
758%P=0 
740F.E=1T06 
7501F BBG=2; 4 













77GIF BB5=4; 


"PUNTEN DEZE WORP *%P;R 
830bK=K+4P 

BAOIFK/5ODE;E=E+L} G=G41 
850IFL=S;P.$12;P, "inde" HEF" van" SFF "de" SAFE "hele" S#FF"serie” 
B&OIFL=S3P. "TOTAAL *K''; 6,700 

8786. 170 

BBOCIF BB{AAT)>1; BECAAT) =BB(AAT) -1;G. 288 

8906. 530 

POLK=#3B0D-32 

910X=X432; IFKDHIBFE,G. 970 

920Y=X2304X2514256 

PIGIFKIY; 0. 210 

P4DIFK=#IBDO P. "SORRY "EQ"... 

P5UIFX=#3BDEP. "JE KOMT NIET OP DE LIJST ttt1*‘;6. 1050 
PEBIFK=HIB20; 6. 980 

P7EIC, HEZE, X-1) „H5BOO 

PBON=X-32 

9IONP3E=KL256JN?31=K/256 

1089F, G=OTO(LENG-1) 

1010N?G=0?6 

1020N. ;N?G=15 

1O3ON=#IAED; VEN? 3D IN? 514256 
LO40IFKCY; EN=50j N?3B=KL 256; N?3L=K/ 256 

1OSOP, SKFFSRFFSAFF" li ist" SHE" van" SHEF 
1068P. "de" $HFF"hoogste"SAFF"scores"SHEFSHFF 
1070P. "laagste * 

10B0F.N=#3AEGTO #3BFF 5.32 
109AP. (NZ3BEN?E14256)" HEN" 








AJ 
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110BN. 

1118P. “nog"$#FF"een"StFF"spel J/N" 

1120INKEY Ij IF I=CHN";P.$123E, 

11505. 110 

114GdIN. “NAAM SPELER"$8 

1150P. "SPELREGELS J/N“'sINKEY I3IF I=CH"N";R 
116QF.N=1T0115P.SHFF;N.;P. "spelregels";F.N=1TO11;P.SHFF;N. 
1170P."eEN SPEL WORDT GESPEELD IN MIN.” 

1184P."18 BEURTEN. eLKE BEURT BESTAAT"' 

1190P. “UIT MAX. 6 WORPEN.“"“bIJ ELKE WORP GAAN ER PUNTEN AF" 
1269P."BIJ DE EERSTE WORP NIETS, "' 

1218P."BIJ DE TWEEDE i PUNT EN DAN"" 

1224P. "OPLOPEND TOT 25 PUNTEN BIJ DE" '"ZESDE WORP.*” 
1238P.“bIJ ELKE WORP WORDT HET RISICO" 

1249P, "VAN PUNTEN VERLIES GROTER’ 

125DP. "bEDENK DAT VOOR JE OPNIEUW WERPT" 

1264P.“vOOR ELKE 54 PUNTEN KRIJGT U EENEXTRA BEURT" 
1279P."zIE HET AANTAL STERREN (#)"” 

1288 F.N=1T0163P. S&FF;N. 

1298P. “vervolg <TOETS>*;LINKHFFES;P.$12 

1380 F‚N=1TO11;P.S4FFjN.;P. "spelregels; F.N=IT011;P. SFF; N. 
1310P."dE BEDOELING IS ZOVEEL MOGELIJK" 

1320P. “GELIJKE CIJFERS TE KRIJGEN. alS"" 

1538P."U HET CORRESPONDERENDE CIJFER" 

1340P.“INTOETST BLIJVEN DE GEWENSTE" 

1350P. “DOBBELSTENEN STAAN, "” 

1368P,“eEN STRAAT VAN & VESCHILLENDE"* 

1370P. "CIJFERS LEVERT U MAX 65 PUNTEN" * 

1384P."OP. alS U OP DE 'S* DRUKT DAN" 

1390P, “WIJZIGEN DE GELIJKE CIJFERS. ** 

1468P. "VINDT U DAT U GENOEG PUNTEN BIJ" 

1410P, "EEN BEURT VERZAMELD HEEFT DAN" 

1420P. "TOETST U '9' OF <RETURND, "’ 

1450 F‚N=1TO16;P. SHFF iN. 

1440P. "vervolg <TOETS>"sLINK#FFE3;P.$12 

1458 F.N=ITOLIG;P.SHFFiN.;P."spelregels";F.N=ITOLI;P. S#FFiN. 
14560P,"al.S U DE STAND OOK WILT OPNEMEN" 

1470P." SAVE DAN HET SPEL MET......."" 

1488P."<SAVE "“DOBBEL""2908 5C20>"" 

1490P, SEFFSHFFSHFF "veel "$HFF plezier" S#FFSHEFSREF"  "$Q" IEI" 
15B0P,' 07 

1510F.N=1T016;P. $&FFijN. 

1520P, “vervolg <TOETS>";LINK#FFES;P.$12;R. 

1530f78DE=HED; 7DF=#BA; NEDER. 

1548J=0 

1550DIM Q5;$0="START" 

1560F.N=#3AEBTORSBFF 3,32; J=JtijN?3B=JjN?51=0; SN=S0jN, 
1570 IAFE=SO 

15886. 108 
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Commando's bij mekaar in een box. De Combox is een box met, zoals de naam al 

aangeeft, alleen commando's. Deze zijn dus niet in een programma te gebruiken. 

Deze commando's zijn geschreven om te worden gebruikt als gereedschap bij het 

ontwikkelen van programmatuur. 

De Combox is gelocaliseerd op HAXXX en bestaat uit de volgende delen: 

HAZ00 — HASFF interpreter + routines 

#A409 — #A7FF monitor van R.Heuvel gelocaliseerd op #7800 — #9BFF 

#A609 — #AB07 overhead voor deze monitor 

#ABUR — #AAFF CHA-routine 

#AS09 — HAFIB PROGRAM PLIST, een programma dat de uitvoer van een 
basic-programma naar de printer regelt. 

#AF9C — HAFFF LCOM-routine 


De commando's zijn de volgende: 

COMBQX geeft een overzicht van de commando's met hun entry point, (zonder 
floating point: LINK#AO74) 

CHA Change String. Zie voor details: Acorntjesbraod 1,4 
De syntax is hiert CHA<delim>oldstring>{delim>newstring><delim> 
Een verkeerde syntax levert error 55 op. 

DMP is identiek aan HEX van P-charme, maar is 16 bytes breed t.b.v, VDUSS. 

HYAR geeft gen overzicht van de basic-variabelen A-Z in hexadecimaal formaat. 

LAB geeft een overzicht van de gebruikte basic=labels. 

Deze worden alfabetisch afgedrukt met het regeìnummer van 
eerst-voorkomen. Komt een label meerdere keren voor, dan wordt achter 
het regelnunmer een # geplaatst. Vervolgens wordt het alfabet afgedrukt 
met de niet-gebruikte labels in hoofdletters. 

LCOM biedt de mogelijkheid om meer dan 64 karakters in een keer in te typen. 
Voorzichtigheid is geboden met INPUT en stringvoperaties. 

LINE teest een regelnummer (dat alleen uit decimale cijfers mag bestaan) en 
geeft het adres van die regel weer. Als de regel niet bestaat wordt een 
ERROR 127 gegenereerd. 

MON kopieert het gebied #A4QG-#ABFF (monitor van R.Heuvel) naar #9880-#9CFF 
en LINKt naar het startadres (#9C00). 

BAS geeft een overzicht van basic-programma's in het gebied #1000-#9FFF. Het 
kenmerk van een basic programma is een ER als eerste byte van een 
geheugenpagina, gevolgd door een ASCIl-string zonder CTRL-karakters 
vanaf de 4e positie, Als de string ontbreekt wordt de CR wel kenbaar 
gemaakt, De plaats van de text space pointer (t‚s.p.) wordt aangegeven. 
Aan het eind van het overzicht kunnen twee hexadecimale cijfers worden 
ingevoerd om de t.s.p. te wijzigen. Als een van beide getallen niet hexa 
decimaal is, blijft de t‚s.p. ongewijzigd. 

PLIST kopieert het gebied #A300-#AFFF (PROGRAM PLIST) naar #9BO0-#9EFF en RUNt 
dit. 

Ts verwijdert eerst alle spaties aan het eind van een regel en geeft 
vervolgens weer: de huidige text space 

de waarde van TOP 

de lengte van het programma 

het laatste regelnummer 

het aantal regels 

het aantal karakters van de langste regel. 


Bovenstaande is als eerste kennismaking met de Combox bedoeld. Het is het 
(summiere) commentaar dat bij de gedeeltelijke source is opgenomen. Deze source 
bevat nl. niet de onderdelen monitor en plist, De Combox is dacht ik zonder meer 
bruikbaar als toolkit op #AXXX, 
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GEHEUGEN 


De aicroprocessor en het geheugen zijn de belangrijkste onderdelen van de 
conputer. Aangezien bij het uitbreiden van de computer het geheugen altijd een 
belangrijke rel speelt wordt in het volgende verhaal de diverse aspecten van het 
geheugen behandeld. 


WAT IS EEN GEHEUGEN 


Allereerst zullen we ons natuurlijk moeten afvragen wat een geheugen is. Met het 
antwoordt dat dit IC's zijn -kleine zwarte doosjes op meerdere poten- hebben we 
de vraag nog niet beantwoord. Daarom zou ik het zo willen zeggen: 

Het is een ladenkast met 65536 laadjes. Ieder laadje heeft zijn eigen numaer en 
van de gehele kast mag er maar 1 taadje tegelijk opstaan. Het nummer van een 
laadje noeaen we een adres en het laadje noemen we een byte. Ieder laadje is 
voorzien van B vakjes hetgeen we de bits noegen. In ieder vakje kan iets liggen 
of niets. Ligt er iets in een vakje dan noemen we dit een I-bit terwijl als er 
niets in ligt het een O-bit is. Deze 8 bits hebben ook nog allemaal een nummer 
en wel gerekend van rechts naar links de nummers @ - 7, Het hoogste bit -dus bit 
nr. 7- noemen we het meest belangrijke bit oftewel MSB en het laagste bit -dus 
bit nr. 8- het ninst belangrijke bit oftewel LSB. Met deze 8 bits kunnen we 254 
verschillende code's in een byte stoppen. 


WELKE SOORTEN GEHEUGEN 
Het geheugen van de computer kent 3 soorten geheugen: 


RAM GEHEUGEN 

In het RAM geheugen kan zowel worden gelezen als geschreven, Dit houdt in dat de 
waarde welke in een byte van het ramgeheugen staat, alleen veranderd wordt 
wanneer de microprocessor dit doet. Uit zichzelf kan de inhoud niet veranderd 
worden en wanneer dit wel gebeurd is er duidelijk spraak van een mechanische 
—hardaare- storing. Ook wanneer de microproseccor uit het ramgeheugen leest, 
wordt de inhoud niet gewijzigd, maar naar de micro-processor gekopieerd. Een 
voorbeeld van RAM geheugen is het gebied van #8008 t/m #9822 hetgeen het 
beeldscherm geheugen is. 


ROM GEHEUGEN 

Het ROM geheugen kan alleen gelezen worden. Indien men naar een adres in het ROM 
geheugen schrijft heeft dit geen enkel effect. 

We hebben in onze ccmputer twee soorten ROM geheugen. Het verschil tussen deze 
twee soorten is dan de ene -de PROM- opgeen enkele wijze gewijzigd kan worden, 
terwijl de andere -de EPROM- deze mogelijkheid wel heeft, Dit Wijzigen kan door 
een EPROM te wissen en opnieuw te programmeren. Hoe dit precies gaat valt buiten 
het kader van dit verhaal. Een voorbeeld van een ROM is de BASIC interpreter op 
#CO0D en de MONITOR op #F202 welke tesamen in 1 ROM zitten. Een voorbeeld van 
een EPROM is de FLOATING point welke zich op #D068 bevindt, 


INVOER EN UITVOER GEHEUGEN 

Ook voor de IN- en UITVOER naar randapparatuur wordt gebruik gemaakt van het 
geheugen, Men spreekt dan niet van RAM of ROM maar van interfacing =kappeling= 
onderdelen. Voorbeelden hiervan zijn de PIA -op A#B808- en de VIA =op #8800- die 
door de microprocessor qetijk als ROM en RAM beschouwd worden. 
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Ket geheugen is op een logische methode ingedeeld. Iedere #4896 bytes vormen een 
blok em iedere 256 bytes een pagina. 

Zodoende noemen we het gebied van #8098 t/m #8FFF een blok en het gebied van 
#8208 t/n #B2FF een pagina. Het geheugen van de computer bestaat dus uit 16 
blokken van 4 Kbyte en uit 256 pagina's van een kwart Kbyte. In het geheugen 
heeft alles een vaste plaats en als we aangeven hoe het geheugen is verdeeld 
noemen we dat een MEMORY-MAP, De MEMORY-MAP zoals de fabrikant is bedacht staat 
op pag. 195 - 197 van de handleiding. 


GEBRUIK VAN HET GEHEUGEN 
Het gebruik van het geheugen wordt door drie factoren bepaald: 


DE MICRO-PROCESSOR 
Door de fabrikant van de 6582 zijn drie gebieden van het geheugen opgeeist voor 
de microprocessor. 

a De ZERD-page. Dit is het gebied van #88 t/m #FF. De microprocessor kent 
speciale instruktie voorbewerkingen op deze adressen. Deze instruktie's zijn 
sneller dan dezelfde voor derest van het geheugen. 

.b De MICRO-PROCESSOR STACK, 

Dit is het. gebied van #188 t/m #1FF. De microprocessor heeft speciale 
instrukties om op deze adressen iets teonthouden. De fabrikant van de ATOM vond 
dit gebied te groot voor dat doel en heeft de helft voor iets anders bestend. 

.c 3 speciale vectoren op #FFFA — #FFFF te weten: 

#FFFA / #FFFB de NMI vector 
#FFFC / #FFFD de RESET vector. 
SFFFE . #FFFF de IRO vector 


DE SOFTWARE. 

De software bepaalt voor een groot gedeelte de indeling van de MEMORY-MAP. Een 
uitgebreide opsomming hiervan tref je aan in het vorige nummer van ACORN NIEUWS. 
Zowel de Basic interperter als het OPERATING SYSTEM hebben elk hun eigen gebied 


toegewezen gekregen. 


DE HARDEWARE INTERFACING 
De hardware interfacing bepaald mede de indeling van het geheugen omdat dit 
specifieke adressen zijn. Is het bij RAM nog zo dat stacks en opslagruimten na 
eigen inzicht van de programmeur bepaald kunnen worden, bij de interfacing wordt 
het adres harware matig vastgelegd. Een voorbeeld hiervan is de VIA en de PIA, 
maar ook het schakelbyte #BFFF van de schakelkaart. 


ADRESSERING VAN HET GEHEUGEN 

De microprocessor geeft aan welke geheugen locatie geadresseerd dient te 
worden. Om in de voorgaande beeldspraak te blijven, welk laadje van de ladenkast 
er geopend moet worden. Tevens geeft de microprocessor aan of er gelezen of 
geschreven moet worden. 

Het adresseren doet de microprocessor doormiddel van de adresbus. Dit zijn 16 
lijnen welke vanaf de microprocessor komen. ‘Hierop wordt door de microproseccor 
een code gezet, op de zelfde wijze waarop de byte’'s in het geheugen hun code's 
bewaren. Aangezien we 16 lijnen hebben -wat het zelfde is als té bit- hebben we 
65536 mogelijkheden. Hieraan kunnen we zien dat de grote van het maximale 
geheugen bepaald wordt door de adresbus van de micro-processor. Het decoderen 
van deze code is een verhaal apart en wordt zodoende ook in een ander artikel 


uiteengezet, 
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Om te kijken in het geheugen hebben we zowel ín de JOSBOX als in P-CHARME een 
statement beschikbaar. In de JOSBOX geeft het statement "XDUMP" de volgende 
informatie van de adressen #ADGB t/m #ABOF 


LJ : 
A008: 40 BF 20 OF Aé FO SA AD 


AUg8: FC O5 85 97 A2 O1 E4 Bé 


In de eerste kolom staat het eerste adres van de desbetreffende regel. Daarna 
volgt de inhoud van 8 opeen volgende adressen, Indien de inhoud een ASCII waarde 
betreft staat het ASCII teken er boven. 


Bij het statement HEX uit P-CHARME ziet de zelfde informatie er als volgt uit: 


Aoga 40 BF 24 DF @ , « 
ABD4 A& FO 3A AD ..t: . 
AöDB FC B3 85 97 .... 
AZOC A2 O1 E4 26... 


Het aaakt dus niets uit welke je gebruikt 


BASIC PROGRAMMA EN HET GEHEUGEN 


De opslag van een BASIC programma in het geheugen heeft ook nog enige 
eigenschappen. Daarom eerst maar eens een XDUMP van een eenvoudig BASIC 
programmaatje. 


18 PRINT “ATOM" 
20 END 


PR IN 

8200: UD DB BA 29 58 52 49 4E 

T "AT OM" 

8208: 54 20 22 41 54 4F 4D 22 
EN D 

8218: OD QQ 14 20 45 4E 44 OD 


8218: FF @9 02 82 94 00 A0 A9 


Allereerst kunnen we vaststellen dat iedere regel als een string in het geheugen 
is opgeslagen. 

Immers iedere regel wordt afgesloten met een carriage return, De eerste #00 op 
“8200 is eigenlijk een dummy carriage return van een string die alteen maar uir 
een return bestaat. Het einde van het programma wordt aangegeven door #FF en dit 
noemen we dan ook de TOP van het programma 

Verder is er nog een byzonderheid met iedere string, lees iedere regel, aan de 
hand. Het regelnummer wordt niet als een ASCIl-waarde opgeborgen maar als de 
waarde van een geheugen plaats. Zodoende vinden we regel nummer 18 op de 
adressen #B201 en #8202 welke sanen de hexadecimale waarde 800BA bevatten. De 
rest van een regel wordt met de gewone ASCII waarden geformeerd. 
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In een BASIC prograama kennen wij ook statements die geheugen reserveren achter 
het programma. Daarvan zullen wij cok een simpel voorbeeldje bekijken. Dan nu 
eerst het programma waarhet om gaat: 


18 DIM A6,‚B7,AA2 
20 $B="ATOM" 

SA AA1=B 

40 END 


In dit voorbeeld reserveren wij op regel 18 de string A met een lengte van 7 
karakters en een string B met een lengte van 8 karakters. Tevens wordt er ruiate 
gereserveerd voor S array’s AA. 

Op regel 20 wordt voorts de string B gevuld met het woord ATOM, Tenslotte wordt 
op regel 30 het adres van string B gezet in het tweede element van array AA. 
Misschien zult U denken dat de schrijver het tellen verleerd ís, maar als ik je 
er aan herinner dat de telling van aantallen altijd beginnen met B, dan zal het 
wel weer duidelijk zijn dat de tweede array van AA genoemd wordt AAL, 


D 1 M 

8200: OD 09 BA 20 44 39 AD 20 

A 6 ‚ B 7 , A A 

6208: 41 36 2C 42 57 2C 41 41 

2 $ B = 

8210: 52 OD BO 14 20 24 42 SD 
"AT ae Me 

8218: 22 A1 54 4F 4D 22 AD 90 

A A tt = B 

8228: 1E 20 41 41 31 3D 42 OD 
{ EN D 

8226: 00 28 20 45 4E 44 OD FF 

A 

8250: 00 98 O2 DO OA OB BO 41 

roa u 

6238: 54 4F 4D aD 98 HA O9 55 

7 
8244: OG 20 AB 57 62 09 63 DA 
u 
8248: @@ 00 08 55 AA BO BÒ 29 


Het programma vinden we op de adressen van #8208 t/m #822F. Wanneer we de TOP 
van het programma op vragen met PRINT&TOP dan krijgen we als antwoord #8230 
zijnde de eerste vrije geheugenplaats na het programma. De regelnummers staan op 
de geheugenplaatsen #8201/#8202, #8212/#8213, #821F/#6220 en #8228/#8229. Het 
DIM statement in de eerste regel reseveert vanaf de TOP van het programma eerst 
7 geheugenplaatsen voor de string A, dus van #8230 t/m 49236. Daarna voor string 
B de geheugenplaatsen #8337 t/m #823E. Vervolgens worden er voor 3 
array-eleaenten ook nog vier geheugenplaatsen gereserveerd en wel als volgt: 
Array @ #B23F - #8242 

Array 1 #8245 — #8246 

Array 2 #8247 - #B24A 

De eerstvolgende vrije geheugenplaats na het reserveren wordt bij gehouden door 
de zerorpage lokatie's #25 en #24, de zogenaamdeDIMPOINTER. In de tweede regel 
van het programma wordt de string B gevuld met het woord ATOM welke wij 
terugvinden vanaf #8257. In de derde regel wordt het adres van de string in het 
tweede array-element gezet, hetgeen we terug vinden op #B243 en #8244, 

Wanneer we in string A, waarvoor 7 plaatsen zijn gereserveerd, een woord zetten, 
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welke deze lengte overschrijdt, dan wordt het woord ATOM van string B 
overschreven. Hieruit blijkt dat men er voor moet waken dat bij het DIMMEN het 
gereserveerde geheugen niet te klein moet wezen. 

Na het uitvoeren van iedere DIM opdracht test de computer ef er nog geheugen 
aanwezig is. Vandaar dat op #825F en op #824B het getal #55 is geschreven. Dit 
getal heeft oorspronkelijk ook op #8257 gestaan, maar is bij het invullen van 
string B overschreven. 





UITBREIDEN VAN HET GEHEUGEN 


Aan een van de eerste zaken, waar na aankoop van de computer wordt gedacht, is 
het uitbreiden van het geheugen. Daartoe worden eerst alle daarvoor in 
aanmerking komende voetjes van de print voorzien van een 2114, Wanneer dit 
gebeurt is hebben we van #2800 t/m #3BFF Skbyte geheugen en van #8090 t/m #9800 
& Kbyte geheugen. Tesamen met de IKbyte op #2008 t/m #2409 hebben we dan een 
computer van 12 Kbyte. 

De eerste uitbreiding die dan ook vaak wordt gedaan is het aanschaffen van de 16 
K kaart welke het geheugen gebied van #4808 t/m #8208 vult, 

Het gat van #5CO8 t/m #SFFF wordt meestal voorzien van RAM geheugen doormiddel 
van het "varkentjes stapelen”. Hoe dit moet staan aangegeven in de samenvatting 
van jaargang 1982 op blz. &, Ook het invulten van het gebied van #98008 t/m #9FFF 
geschiedt op dezelfe methode. 

De orginele diskdrive contreller-kaart bevat ook het geheugen gedeelte #3CDB — 
#4089, Tevens heeft op deze kaart het gedeelte #2000 — #2800 een plaatsje 
gevonden. 

Daarnaast kan men nog overgaan tot het aanschaffen van een schakelkaart. Deze 
kaart draagt er toe bij, dat het gebied van de UTILITY's ROM 8 maal beschikbaar 
is. Dus in plaats van 1 utility kan men er nu 8 stuks kwijt. Dit kan in de vorm 
van 6 EPROM's en 2 stukken RAM. Voor de goede orde dit gebied loopt van #AG0@ 
t/m #AFFF. Tevens is op de schakelkaart nog twee stukken RAM geheugen 
beschikbaar, welke door een tot standaard verheven plaats, van #1209 — #IFFF 
geplaatst worden. 

Elders in dit nummer treft U omtrent het gebruik van de schakelkaart een 
uiteenzetting. 


ATOM--LARE DEEL SS 


89 pagina's uitleg monitor=rom 


EF1- s- OA 
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BOOTSTRAP VERBETERING 


In Acorn Nieuws 7 jaargang 3 staat een scheaa van een bootstrap. 

Dit schema is met 2 diodes uit te breiden (zie schema) zo dat de hootstap buiten 
werking ís als de shift toets is ingedrukt, Dit kan erg gemakkelijk zijn als er 
een fout zit in het eigen reset-prograama. De computer blijft niet hangen, maar 
gaat gewoon naar de standaard routine. 

Vrijwel elke diode kan gebruikt worden, bij mij zitten er 2 germanium dioden in, 
Een IN4148 zal het cok wel doen. 

U moet zelf maar even kijken hoe u het op het printje wil zetten. Zelf heb ik de 
bootstrap op gaatjesboard gemaakt. Als de pinnen die in het oorspronkelijke 
voetje moeten te kort blijken te zijn kunt u er eenvoudig een los ic-voetje 
tussen zetten. 

Bij mij zitten er zelfs 2 voetjes tussen omdat de 2K RAM in voet 24 te hoog ís, 


Shifé 
naar A3 in 
heé schema 
A3 
Atl 


vo 











DY Y En 
SV 

10 Kk @ 
IC 1 


® nLsoo 
ed OV 
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GPUMF: Mode 4 op essen EPSON 


Er zijn inmiddels al zoveel dumpprogrammaatjes voor allerhande printers 
verschenen, dat ook ik mijn bijdrage in de vorm van een publicatie wil leveren, 
De routine die ik heb geschreven, wordt geacht uitgevoerd te worden na het 
herkennen van een statement bv. GDUMP, 

GDUMP is gemaakt om op een naar “bit image graphics” omgebouwde MX82 te 
draaien,maar blijkt zonder meer ook op een RX80 te werken. Het vermoeden rijst 
derhalve dat de routine t‚a.v. de hete Epson=lijn universeel is. (wie heeft er 
een LOI0U en probeert dit vermoeden te versterken?) De beide RX'en30 waarop 
GDUMP al gedraaid heeft, althans de bezit(s)ters ervan, zijn de indirecte 
oorzaak van dit artikeltje. 

GDUMP mag gevolgd worden door geen, een, twee of drie parameters. Voor de 
parameters die je niet opgeeft, wordt een nul ingevuld, De eerste twee 
parameters vormen resp. een verticaal en een horizontaal EOR-masker. Het effect 
hiervan is dat je horizontale resp. verticale lijnen tof beide) kunt inverteren. 
Deze faciliteit zit er niet ìn om "leuk te wezen”, maar om een plaatje volledig 
geinverteerd weer te kunnen geven, wat in feite gebeurt via een EOR-masker van 
BFF. Als het je nu wat te ingewikkeld wordt, onthou dan dat je een plaatje op de 
Epson krijgt via GDUMP en wil je het negatief hebben, via GDUMP —t 

De derde parameter geeft een verschuiving van het plaatje op papier aan. Je 
krijgt het plaatje bijv. in het midden van het papier door deze parameter gelijk 
aan 18 te maken. 

De voorbeelden laten dacht ik duidelijk het effect van de drie parameters zien. 

Als tijdens het dumpen blijkt dat er iets mis is (tv. ?#FE is niet goed) dan kun 
je ESCape indrukken. De routine maakt dan de regel waar híj mee bezig is af,zet 
de printer terug op 6 regels per inch, schakelt vervolgens de printer driver uit 
en zorgt zodoende voor een fatsoenlijke exit. 

De opmerking dat voor deze routine de Atom volgens de printerstandaard moet zijn 
omgebouwd, moge triviaal zijn. 

Degenen die de routine (nog) niet als statement kunnen implementeren, kunnen hem 
ook aantinken met: 

LINK (adres van gdump)$param.1,param2,param3; 
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18 \\ser GDUMP ame\\ 





28 

Se:ptr = #BA 

40: gbyte = #8C 

5e: typel = t8D 

68: type2 = #BE 

78: type3 tar 

80: prdrive #FEFB 

98: STX 2 

190:ETX 3 

118:LF = [0 

120: CR = 13 

158:ESC = 27 

140: gdump 

158 1da&@;sta typel;sta type2jsta type3 

168 jsr &F29t;capECH“;3“;beg param;cap@CR;beg paramsdec #05 
178 jsr #C78Bjdec #04;ldx #04;lda #i6,xjsta typel 
188 jsr #F29ischnpECH",";bne param” 

190 jsr #C7BB;dec #84; ldx #04; lda #16,x;sta type2 
208 isr #F291sempECH","sbne param’ 

218 jsr #C4Etsdec #84; ldx #84jlda #16,xjsta types 
228 inc #83 

25@:param” 

249 dec #03 

25@:param 

260 Ida@(#8009)/256;sta ptr+1 

278 1dy@{#8000)L256;sty ptr 

288 1da@STX;isr prdrive ;\ printer on 

290 \ set printer at 8 lines per inch 

308 1lda@ESC; jsr send8bit 

318 1da@CH"A"s jsr send8bit 

320 Ida@8; jsr send8bit 

350: spaces 

348 Ida@CH" “sldx types;dex;bmi P+6 

350 jsr prdrivesjmp P-6 

368 ldx@t-4)KHFF 


570: inigraph 
lda grbytes-((-4)EBFF) ‚x 


380 
598 


isr 


send8bitjinxsbne inigraph 


400: build 

lda (ptr)‚yseor type2 

secjand BF7C9,xsbne P+S;sclesrol gbyte 
lda@#20;clcsade ptrssta ptr;bne build 


410 
428 
450 
440 
450 
468 
478 
480 
498 
500 


510:shut; 


520 
538 
548 
560 


588 


lda 


gbytejeor typeljjsr sendBoit 


inxscpx@#@O;bdne build;ldxe8 

inyscpy@#2O;sbne build; 1dy@g 

lda@LF;jsr prdrive 

ida@CRjjsr prdrive 

ida #B8Gijande:BA1D BREAsbeg shut ;\ escape key? 


inc 


ptr+1;lda ptr+ijcmp@t#9800)/256;bcee spaces 
\ set printer back at 6 lines per inch: 


1da@ESC; jsr send8bit 

1da@CH"2";ijsr sendBbit 

lda@ETXjisr prdrive ;\ printer off 

550:sendBbit 

phaysrol A;lda@:;8408 OO1lsrol A;sta #BOES 

570 plasora@:1990 2C00;isr prdrive 

lda@:0809 @110;sta #B803 ;\ reset graphic bit; rts 
59@:grbytes; \ tell the printer to receive 256 graphic bytes 
630 „byte ESC,CH"K",(256}%256, (256) /256 
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BDUMP _ (gewaon) 


GDUMP —1 ‘negatief, 
GDUMPF O,=1 mag ook) 








< GDUME 0,0, 10 


(verschuiving) 











masker) 





(vert. 
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GDUMP #80,0,5 


















22 
„23 


GDUMF 0,#05 


masker) 


(hor. 


‘taoepassinat) 


GDUNF #81,881,18 


CLEAR4: 
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BRANGUART SOS 


Eindelijk kan ik dan op mijn Schakelkaart Operating System (508) het licht doen 
laten schijnen. Op een van de vorige bijeenkomsten heb ik al een demonstratie 
gegeven; maar helaas, na de demonstratie werd me nog een programmaatje in mijn 
Atom gedrukt en bleken er in deze SOS nog wat onverwachte fouten in te zitten. 
Deze zijn er dan nu uitgehaald. 

Wat is nu een schakelkaart operating system ofwel S50S? Om wat meer mogelijkheden 
te hebben op onze ATOM biedt de club-schakelkaart de mogelijkheid om meerdere 
A-blokken in je Atom te plaatsen, en wel parallel aan elkaar. Doormiddel van het 
wegschrijven in een speciaal register kan een andere toolkit voorgedraaid 
worden, De belangrijkste toolkits voor ‘dagelijks’ gebruik zijn: P-CHARME, 
JOSBOX, GABS, WORDPACK, de 64 kolommen wordpack of SALFAA. Dit hangt een beetje 
van je smaak af. 

Iedere box (toolkit) bevat een aantal statements en commando's die een 
uitbreiding vormen van de ATOM basic, 

Door ou in dat speciale register een rom nummer te poken, kan een zo’n box 
geselekteerd worden, en bevat de ATOM een andere instructie-set. In het begin 
‘pookten’ we maar wat met de hand rond in onze ATOM: de pre-vorm van eerste 
generatie schakelsoft. 

Nu is het handig om over alte statements uit alle in de ATOM aanwezige boxen 
‘tegerlijkertijd’ te kunnen beschikken. Dat heeft er in het verleden al meer dan 
eens toe geleid, dat er programma's werden ontwikkeld die een commando of 
statement in een box opzochten, en uitvoerden. Zo'n programma werdt draaischijf 
of schakelkaart operating system genoemd. In zijn simpelste vorm was deze 
schakelsoft alleen maar instaat commando's en statements op te zoeken en te 
executeren. We zouden dit eerste generatie schakelsoft kunnen noemen. Het gaat 
nu al een stuk eleganter dan het ‘met de hand poken’. Tot nu toe klinkt het 
allemaal wel leuk, maar,.…….. 

Als nu eens GRMOD uit JOSBOX aangeroepen wordt, en daarna VAR uit P-CHARME, dan 
ligt de ATOM wel meteen plat: hoe kan dat nou! BRMOD verzet de 
outputcharacter=vector en laat hem naar een routine in de josbox wijzen. Daarna 
wordt P=-EHARME voorgedraaid, maar wijst de outputcharacter=vector nog steeds 
naar het zelfde adres, maar nu naar P-CHARME, ofwel naar een onzin routine, Dit 
soort problemen leidde ertce dat een tweede generatie S0Ssen werdt ontwikeld,. 
Deze vingen die bewuste vectoren af‚ en draaiden tussendoor op de goede momenten 
de juiste boxen voor die met de vector correspondeerden. 

Er zijn globaal twee grote schakelsystemen die in den lande draaien: 

= CK-505 van Chris Kwakernaak en 

— CX-50S van Duke Urbanik. 

Ik zal me voorlopig tot deze twee beperken, maar we mogen vooral andere versies 
oek niet vergeten alszijnden: de verschillende draaischijven van Bram Poot (denk 
hierbij aan de nieuwe P-CHARME op #1888 50S) etc... 

CX-S505, beschreven in c.a. ACORNNIEUWS 4,1 is een eerste generatie 505. Behalve 
een basis-programma zijn er nog uitbreidingsrodules vol met statements en 
commando's als: EX-2.7 en CX-3.8. 

Verder is er nog CK-S0S van Chris Kwakernaak, een tweede generatie SOS, Deze 
staat beschreven o.a. fn ACORNNIEUWS 3.5. Dit systeem verlegt de vectoren. 
Helaas doet zij dat niet met alle vectoren, maar alieen: BRKVEC, IROVEC, COMVEC, 
WRCVEC, RDCVEC, LODVEC, SAVVEC, BGTVEC en BPTVEC. Buiten schot blijven NMT (het 
is niet raadzaam deze te verleggen), RDRVEC, STRVEC, PRINT-TAPE-MESSAGE-VEL, 
SHUT-FILE-VEC en als belangrijkste de POINT-PLOT-VECTOR, Het is vooral deze 
laatste die er voor zorgt dat CK-505 niet met GAGS kan samenwerken. Jammer! 

Tot zover heb ik een summiere opsomming gegeven van wat tot op heden mogelijk 
wa5. Een jaar geleden is echter P-CHARME aan het boxen-firnament toegevoegd. 
Naast statements en commando's beschikken we nu ook over functies! Daarbij heeft 
P-CHARME een terminerend karakter, dat wil zeggen: voor het afhandelen van deze 
functies moet P-CHARME aangeroepen worden via de BRK-ERROR routine van P-CHARME. 
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P-CHARME is dan instaat om een opgetreden fout terug te draaien, en de executie 
weer te vervolgen. Dat leverde ons o.a. functies en meerdimenionale array’s op. 
Nu is P=-CHARME blijkbaar ook bedoeld als een ‘stand alone’ box, want er treden 
nu problemen op als een willekeurige box als expressie bijvoorbeeld een 
meerdiaensionaal array heeft. Als de aanroeper bijvoorbeeld GAGS is, rekent 
P-CHARME het meerdimensionale array uit, maar geeft niet de waarde meer terug 
aan de aanroeper uit GAGS. 

Dat is jammer, want dat is vaak wat we willen: de ECHTE basic uitbreidingen uit 
P-CHARME saaen met een faciliteiten leverende box als GAGS. Daarom is Bram Poot 
ertoe overgegaan om P-CHARME niet meer op het A-blok te huizen, waar het danig 
in de weg zat, maar te plaatsen op #1090. Deze versie kan zondermeer P-CHARME 
mengen met bijvoorbeeld GAGS. Dit is een halve oplossing, want er wordt een 
uitzondering gemaakt voor P-CHARME, terwijl een andere box met functies weer 
problemen oplevert. Voorstanders zeggen dat er geen andere functie-boxen zijn. 
Dat is tot op zekere hoogte waar: maar SALFAA 1,5 (ook van Bran!) is wel 
degelijk instaat om symbolische variabelen binnen Basic te supporten. “PRINT 
CROMNUMMER*2) * behoort tot de mogelijkheden, “ROMNUMMER' (een symbolische naam) 
fungeert als een soort van functie net als TRUE en FALSE uit P-CHARME. Ook dit 
soort variabelen werken naar opleverende zijde toe als functies, en behoren 
daarmee tot de probleemgroep. Zij kunnen dan ook niet met een andere box gemengd 
worden binnen 1 statement. Dus zijn er meer probleemboxen dan P-CHARME alleen. 
Vandaar dat ik P-CHARME op #1008 maar een halve oplossing kan vinden. 

Toch acest dit soort geschakel ook mogelijk zijn binnen een SOS, Daarbij wil ik 
WEL even voorbij gaan aan de negatieve kanten die aan het gebruik van een SOS 
vastzitten; daar heeft Bram Poot al eens wat over gesthreven. Bovendien ging bij 
mij de uitdaging meer in het ontwikkelen zitten, dan in het niet altijd even 
zinvolle gebruik van een SOS. 

Ik wil hierbij de derde generatie S5OSsen gaan presenteren, die wel het 
functiebegrip kunnen hanteren. Een vraagje tussendoor: tot welke generatie 
behoort P-CHARME op #10068 in saaenwerking met een draaischijf van een eerste 
generatie? Korte, maar heftige discussies zijn hier al het gevolg van geweest; 
sommigen zeggen 4e generatie: het netto effect zou ongeveer hetzelfde zijn als 
een 3e generatie SOS. Wat mij betreft is dat piet waar: oordeelt U zelf maar. 
Volgende vraag «…-. wat kan BRANGUART nu allemaal? 

- Hetzelfde als P-CHARME op #1008 biedt. U kunt dus de SPRITE EDITOR en PAINT 
EDITOR van Ronald Boers draaien. Het ‘ROM’ commando moet WU natuurlijk wel 
weghalen. Helaas heeft dat bij 1 van de 2 programma’s een ERROR tot gevolg. Een 
foutje van P-CHARME of van de 6502 {het gaat te ver om dit uit te leggen), 
Remedie hiertegen is: voeg een regel met spaties toe. Deze fout treedt cok op 
bij P-CHARME op #1000! Het ligt dus niet aan deze SOS. Verder moet bij de PAINT 
EDITOR de naam van het programma iets gewijzigd worden, omdat anders het 
statement ‘PAINT' wit GAGS voor de programmanaam ‘PAINT’ wordt aangezien. Het 
programma start dan iedere keer weer opnieuw op! 

- P-CHARME is beslist niet noodzakelijk. Ket kan even makkelijk zonder! 

- Deze 505 is gebouwd op de toekomst; dus niet meer aanpassen als een nieuwe box 
als P-CHARME ontworpen wordt. Iedere soortgelijke box zal werken (voorbeeld: 
SALFAA 1,5). 

- Hetzelfde als CK-S0S biedt, geschakelde vectoren, maar dan wel alle vectoren, 
cok de point-plot-vector! 

- Speciale foefjes zodat P-CHARME, GAGS, ED64 en JOSBOX beter samenwerken, Zo is 
er een foutje in de samenwerking van P-CHARME op #1000 en GRMOD verbeterd, 

- Gescheiden zero-page adressen voor de verschillende boxen, in te stellen door 
de gebruiker. 

- Disk werkt normaal indien er geen disk-commando's zich bevinden op het A-blok. 
Zolang de NMI niet naar het A-blok wijst, geen probleem) 

„5 extra commando's voor gebruikersgemak. 

- Maar (227) 5 en een halve pagina SOS plus pakweg Ì pagina werkgeheugen. 

- Geen zero-page gebruik! 

- Laatst gebruikte box fungeert als start-box voor volgend zoekproces. 
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= Boxen kunnen vastgezet worden. 

= Schakeltijden die mij erg aeevallen. 

= Een hoop verbeteringen zoals niet meer vastlopen van FCOS na COSÌ. 

= Beschreven in SALFAA: .….lekker duidelijk. 

— Kortom, op enkele uitzonderingen na: ALLES MET ALLES en een heerlijke ATOM. 


Laat U zich niet afschrikken door de speciale foefjes voor combinatie tussen 
bovengenoemde boxen. Het systeem is hier alleen maar aan aangepast, zodat het 
nog beter werkt, en nog minder snel vastloopt. De meeste boxen zijn namelijk 
zooiboxen, die totaal niet berekend zijn op maar ook iets anders dan hun eigen 
acties. Daardoor loopt menig schakelproces soms aardig uit de pas. Niet alleen 
in Branquart, maar in alle andere SQSsen! 

Belangrijk is ook wat allemaal niet kan: 

— GRMOD samen met TEXT. 

— CDSî met korte tussenpauzes onder alle omstandigheden (hier kom ik nog op 
terug), wel meestal met iets langere pauzes (helaas). 

= Zelf met de hand schakelen kan ook funest zijn. Hier is een speciaal commando 
voor, dus geen problemen! 

— Verder bevatten zowel de JOSBOX als P-CHARME READ, RESTORE an DATA, 
Samenwerking tussen deze 3 moeten binnen een zelfde box plaats vinden, anders is 
het resultaat onvoorspelbaar. Dit dient dan ook afgedwongen te worden (kom ik 
eveneens op terug). 

= STEP uit TOOLKIT werkt niet zondermeer, maar STEP uit de JOSBOX wel: kom ik 
ook nog op terug. Dit wordt deels veroorzaakt doordat interrupts soms sneller 
zijn dan de initialiserende acties die de S0S graag wil ondernemen. Hier is 
hetaas niets aan te doen. Zie hiervoor ook een eind verderop. 

— Bij een lege regel en een niet vastgezette box die niet met #48 en #BF begint 
(kunt U het nog volgen?}, zal deze SOS de neiging hebben niet op deze box te 
blijven staan, maar naar de volgende box te gaan. Dit komt doordat die box als 
eerste deze lege regel gaat bekijken, en dan tot de coneclussie komt dat er niets 
van belang in staat, en dan het zoekproces wil stoppen. 

Dit zijn de enigste problemen die ik ken. De aandachtige lezer zal kunnen 
bedenken, dat aan bovengenoemde uitzonderingen moeilijk te ontkomen is. 

Verder zijn er nog wel andere moeilijkheden, maar die liggen niet aan deze SOS, 
maar treden aan de dag doordat er snel geschakeld wordt ef om andere redenen. 
Als: 

ED64 af EDIT ==> GUIT 

ERMOD 

BOE 

Deze volgorde laat je ATOM hangen. Dit ligt niet aan de 505, maar aan de ATOM. 
Bewijs: 

CLEAR4; ?1B=482; BOE …………! 

Dok wil de huidige versie van GAGS (GAGS-V2,0E) niet altijd functies met 
statements mengen: ‘BLOCK 2,PAR,PAR,PAR,PAR' met ‘PAR’ een functie, werkt niet. 
Hier heeft ook P-CHARME op #1008 last van, het ligt dus niet aan deze SOS. 
Wellicht komt er nog een andere versie van GAGS die niet dit bezwaar heeft. 
Zoals reeds medegedeeld: onder bepaalde omstandigheden start-problemen met 
interrupts. Ik kom hier vederop nog op terug. Deze problemen zijn echter niet te 
voorkomen. 

Wat kunt U hier uit leren: geef de schuld niet te snel aan daze SOS, maar 
reconstrueer de fout, en neem desnoods even kontakt met mij op. 

Rest mij verder nog bij deze inleiding twee zaken: waarom die rare naam, en 
welke commando's zijn er dan wel aan het systeem toegevoegd? 

Ik heb voor de naam BRANGUART gekozen ter ere van de heer Branguart, wiens 
onverzettelijke strijd mij nu ook ten delen is gevallen. Wie was (is??) 
Branguart nu eigenlijk? Branquart is een deskundige op het gebied van compilers 
veor talen. Bij enkele talen als Pascal kan men nog volstaan met 1 enkele stack, 
net als binnen onze basic (wij hebben er echter meer), maar een taal als ALGOL 
GA heeft er wel meer dan l nodig. Een stack moet kunnen groeien, en dat ís 
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lastig, want 5 stacks moeten ook kunnen groeien, nietwaar? Maar waar laten wij 
die groeien? Niet tegen elkaar aan! Ze hebben net als planten ruiete nodig. 
Vuistregel: een vertaald ALGOL 68 prograsna verbruikt meer geheugen, dan zijn 
PASCAL equivalent. 

Lastig, maar het ís niet anders. Toch vond Branquart dat daar best wet iets aan 
kon veranderen. Het aoest en zou op 1 stack kunnen, maar zijn collega's lachten 
hea uit. Zijn project flopte dan ook, en dan moet je ook nog naar eens zo'n rare 
naaa hebben! Zijn werk ging de geschiedenis in als de brancaar-gethode, vanwege 
de enorme puinhoop die uit zijn project overbleef. 

U kunt gelijkenis trekken met het ontwikkelen van deze 505: het is een beesten 
karwij, tegen beter weten in. Het schakelen gaat veel trager, je ontwikkelt 
prograara’s die zoveel boxen nodig hebben, dat niemand jouw programma's ager kan 
draaien etc. 

Toch heb ik ft ding niet gemeen met Branquart: deze 508 lijkt te werken! Toch 
zijn naaa maar verbinden get dit project. 





Welke commando's bezit deze 505 verder nog: 

= ROM nr. Met ‘ROM 5’ zet je de rom met schakelnr. 5 vast, en worden niet alle 
boxen aeer doorìopen. Hiermee kunnen we bijvoorbeeld READ, DATA en RESTORE uit 
dezelfde box afdwingen. Bij niet aanwezig zijn van een box (begint niet net 
#40,8BF) wordt een melding gegeven op het scherm. Verder wordt de BRK-vector op 
standaard gezet als een box vastgezet wordt die niet de BRK ‘gezet’ heeft. Dit 
taatste beschermt de gebruiker tegen stommiteiten. 

= UNLOCK . Haalt een vastgezette rom weer van gelockte toestand af. Vanuit 
direct mode werkt ook SHIFT/RETURN. 

— DISMOUNT. Werkt alleen in direct mode en haalt de 508 ‘uit de lucht’, Reset 
als een BREAK tevens het systeem, 

= 'e', Activeert in direct mode functies en meerdimensionale array's. 
‘DISAS(TRUE)' werkt niet =-> ERROR 29. Maar ‘-DISAS(TRUE)' werkt wel, Ook 
“=PeWW(1,2)". ‘-* wordt alleen herkend in direct mode, en als geen box gelocked 
is met uitzondering van P-CHARME. Omdat niet iedereen P-CHARME heeft, en deze 
SOS ook zonder P-CHARME goed werkt (P-CHARME is dus niet noodzakelijk), kan dit 
bijbehorende commando (optioneel) weggelaten worden. 

= 't’. Werkt alleen ín direct mode. Alternatief voor: 

‘#29’ = "7182829; END". 


Dan is nu het moment gekomen om wat dieper op BRANGUART in te gaan, Het volgende 
is ook wat pittiger geschreven dan het voorgaande verhaal, 

Hoe initialiseren we Branquart in onze ATOM. De source is geschreven in Salfaa 
1.5. Dit moet U dus wel degelijk bezitten, 

In de listing zijn aanwijzingen aangebracht, om die delen te markeren die 
ingesteld dienen te worden, '##2?%' Markeert die delen die bij iedereen kunnen 
verschillen, afhankelijk van diens configuratie, Van voor naar achter: 

= U kunt aangeven of U wenst gebruik te maken van '-’, dus of U P-CHARME in uw 
systeem heeft. Dit doet U door ‘YES’ of °NO' in de source in te vullen. Tevens 
moet U voor ‘ROM'PCHARME' het bijbehorende romnummer invullen. Vult U op deze 
vraag 'NO’ in, dan doet de waarde van ‘ROM'PCHARME’ er niet neer toe. Tevens 
wordt de code straks een stukje korter, 

- U kunt het gebied aangeven, waar U de symboltable wan SALFAA wenst te 
plaatsen. 

= Voor ‘LATCH' kunt U uw schakeladres invullen. 

— Voor “SCHADUW” kunt U het bijbehorende schaduwadres invullen. Dit is omdat 
HEFFF niet gelezen kan worden (helaas), U kunt als de latch wel gelezen kan 
worden, de waarde van ‘LATCH' hiervoor invullen. Verder is het shift-register 
uit de VIA (#BB8A) een redelijk alternatief, 

- ‘MAX’ geeft het aantal rom's aan, die het systeem Kent. Voor de 
minischakelkaart is dat 2, voor de TELEC kaart is dat 4, en voor de grote 
clubkaart is dat 8. Ram of rom maakt hier niet bij uit. 

” \IPBASE' geeft het basis-adres aan van het mee te schakelen zero-page gebied. 
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#91-#98 Is in verband met belangrijke data van P-CHARME minimaal aan te raden. 

= 'ZPLENSTH' onvat het aantal te schakelen zero-page bytes. Hoe meer, hoe trager 
het systeem, maar ook hoe beter het ROM'S uit elkaar kan houden. 

= Met ‘BASE’ kunt U aangeven vanwaar het werkgeheugen dient te komen. 
“BASE=END'OF'ASSEMBLY' plaatst dit gebied achter de S05, Wilt U deze S08 echter 
ap slot, dan MOET U kier een ander gebied voor opofferen. 

Bij 'ENTRY' dienen 'LDA@#FF' en 'STA#B802' voor het initialiseren van de VIA, 
voor mocht U hiermee willen schakelen, 

— ‘'ASSEMBLY' geeft het adres aan, Waar de S08 moet aansluiten op de 
FLOATING-POINT-DRIEWEG-WISSEL die in de floating-point dient te zitten. Meestal 
zal dit #1200 of #EAEB zijn. 





Na alles ingevult te hebben, kunt U de source gaan runnen, en dient het systeem 
daarna te draaien. 

Handig als ‘Beot-up’: 

18 PROSRAM 1 

28 ICOPY „..…, eeeny eeen 

38 P."SOS VERSION 1,1 MOUNTED"* 

40 ?18=#27 

5@ END 


Dit programma, op slot, zorgt ervoor dat Branquart na power-up geinstalleerd kan 
worden. 
Uw systeem ís start klaar! 


Laten we nu maar eens ingaan op de structuur van deze SOS, Sommigen van U zulten 
wel erg nieuwsgierig zijn, hee ik het voor elkaar heb gekregen om ook na het 
uitrekenen van expressies weer terug te schakelen. 

Eerst een huishoudelijke mededeling. Zoals een paar bladzijden terug al werdt 
vermeld, zijn er links en rechts wat zaken toegevoegd om GAGS, P-CHARME, JOSBOX, 
SALFAA, ED&4, WORDPACK wat nader tot elkaar te brengen. Deze boxen waren in 
eerste instantie mijn doelstellingen, zodat ik deze 505 voor deze boxen wat 
verder heb uitgewerkt. Dat houdt een aantal check's en acties in, zodat het een 
en ander nog beter verloopt. Ik zal deze zaken terloops ter sprake brengen. Deze 
wijzigingen zijn in de source aangegeven met ‘#&!!4’, Ziet U dit als commentaar 
ergens bij staan, dan weet U dat het een extra faciliteit betreft. 

Het is een beetje moeilijk, om zo'n ingewikkeld programma als dit te bespreken, 
zonder de lezer de samenhang te laten verliezen. Omdat het beter is dat U weet 
hoe Branguart ongeveer werkt, zal ik toch een poging wagen. Een 505 kan maar 
beter geen black-box zijn, U kunt dan niet aanvoelen waarom bepaalde dingen niet 
kunnen, Zo is bij het gebruik van interrupts wel enige voorzichtigheid vereist, 
zoals we straks zullen zien, 


Goed, de ATOM probeert een statement (uit een programma of de input-buffer) te 
interpreteren, maar leopt daarbij vast. Hij snapt er niets van. De ATOM heeft 
dan de keus of een ERROR af te trappen, of via de FLOATING-POINT-DRIEWEG-WISSEL 
naar de 508 te gaan. Dit laatste gebeurt alleen maar, als er anders een ERROR 94 
gegenereerd had moeten worden. De floating-point driewegwissel stuurt deze tekst 
dan door naar de 505, De 508 moet deze toestand dan maar zien op te lossen. 
Daarbij wordt de S08 betreden bij ‘ENTRY’. Hier wordt eerst de VIA 
geïnitialiseerd, en daarna gekeken of in direct mode de shift/return toetsen 
zijn ingedrukt. Is dit het geval dan wordt de current rom ge‘untock't. 

Goed, er is geen shift/return ingedrukt, De S0S bekijkt dan of er gen rem 
gelockt (vastgezet) is.Afhankelijk van deze toestand zal dan 1 van de 2 
schakelroutes genomen warden: 

- Bij een gelockte rom wordt eerst de SYSTEEM-BRK-HANDLER geïnitialiseerd. Deze 
handler is het hart van dit systeem, Van hieruit zullen straks de verschillende 
acties worden ondernomen, en als er iets fout gaat (een ERROR XX) zal aak 
hiernaar weer terug gesprengen worden, Belangrijk is, dat dit systeem ten 
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behoeve van de duidelijkheid maar 1 handler bezit, 

De gelockte box zal het onderhavige statement gaan bekijken, accepteert hes, of 
trapt weer een ERROR 94 af, Door dit laatste zal de BRK-HANDLER in actie treden. 
Ondat het een gelockte roa betreft, zal er niet verder worden gezocht, maar 
wordt de eigen interpreter met een bezoekje vereerd. Hier valt meteen iets op, 
Als eerste wordt er getest of het statement met ’.' begint. Deze situatie kan 
voorkomen doordat bepaalde boxen een statement accepteren, daarna de 
basic-pointer verschuiven tot vlak na het ondehavige statement, dan tot de 
conclussie komen dat er nog iets ais is, en alsnog, maar dan wel iets te laat 
een ERROR 94 genereren. Met deze check wordt voorkomen dat dan automatisch 
“DISMOUNT' wordt uitgevoerd, Overigens zijn deze commando's af te korten, Is het 
statement nog steeds onvindbaar, dan zal gesprongen worden naar de BRK vector 
die actief was voordat Branquart er zich mee begon te bemoeien. Dit kan 
bijvoorbeeld die van P-CHARME zijn (doormiddel van ‘PROGRAM'). Kan deze laatste 
er ook geen touw meer aan vast knopen, dan is alsnog een definitieve ERROR 94 
het gevolg. 

= Tot zover wat geen gelockte rom betreft. Nu de situatie wanneer er geen roa 
gelockt is, Ook hier wordt de SOS BRK-HANDLER geactiveerd. De eerste box wordt 
uitgeprobeerd. Lukt dit niet, dan is de volgende aan de beurt, en zo het klokje 
rond. Steeds wordt doormiddel van een ERROR 94 opdracht gegeven om de volgende 
box te proberen. Is het hele klokje rond gegaan, dan zal daarna net als in de 
gelockte situatie, de eigen interpreter geactiveerd worden. In de Handler valt 
eveneens een check op ‘….' op (heeft U het?). Deze check dient voor iets 
dergelijks als hierboven beschreven is, In concreto ‘RENUM,’ bijvoorbeeld wordt 
door P-CHARME herkent, dat wil zeggen 'RENUM' om exacter te zijn. P-CHARME 
bemerkt dan tot zijn schrik dat achter 'RENUM' nog een ‘.' staat, en beweert dan 
d.m.v een ERROR 94 dat hij ‘RENUM,' niet kent, De SOS gaat dan lustig verder met 
".“, met onvoorspelbaar resultaat, Dat moeten we dus niet hebben. 

Stel nu dat de BRK-HANDLER betreden wordt net een andere error dan ERROR 94, Nu 
wordt het pas echt interresant. Als het een ERROR 29 of een ERROR 174 betreft, 
zal een simutatie uitgevoerd worden. In deze simulatie wordt net gedaan of in 
het verleden, bij het uitrekenen van de expressie, waarbij deze error's 
optraden, een subroutine is gebruikt die ik ‘FAKE EXPRESSION CALLER” heb 
genoemt. Na het oplossen van deze ERROR 29/174 zal d‚m.v. return’s deze routine 
betreden worden. Deze schakelt dan de box in, die om het uitrekenen van deze 
expressie had gevraagd, Het was nu de kunst om deze simulatie zo uit te voeren, 
zodat dit proces altijd goed gaat. Het routine adres van ‘FAKE EXPRESSION 
CALLER* wordt zodanig op de hardware stack ertussen geschoven dat we 
bijvoorbeeld BLOCK nu met P-CHARME functies kunnen gebruiken. Dit gefrommel met 
de stack ziet er nogal ongezond uit (en dat is dat dan ook), Een leuk puzzeltje 
voor een regenachtige dag. 

De routines ‘SWITCH'CONTEXT'IN/OUT' verzorgen het meeschakelen van de zero-page 
gebieden. 

De commando's '—-’, “DISMOUNT', ‘ROM', 'UNLOEK', ‘#’ spreken voor zichzelf. 
Attentie: in ROM’ wordt de routine ‘UPDATE 'VECTORS' aangeroepen. Deze routine 
werkt vectoren (vanaf #290) weg die naar A-blokken wijzen. Dit is concreet 
gedaan om de volgende situatie: 

ROM 3; verzet enkele vectoren,bijvoorbeeld 'STEP' uit JOSBOX;ROM 2 

Bij ROM 2 zullen de verzette vectoren als deze naar een A-blok wijzen afgevangen 
worden. Bij een gelockte toestand neemt het syseen namelijk geen moeite om naar 
de vectoren om te kijken. Dit dient dan achteraf alsnog te gebeuren voor het 
telaat is (na ROM 2}. 

Dan blijft nu alleen maar nog het vectoren afvangen over, De hierbij gepaard 
gaande administratie wordt zoals reeds gezegd verzorgt door ‘UPDATE 'VECTORS', 
Deze routine laat vectoren die naar een A-blok wijzen, naar een van de entry's 
uit de ‘VECENTRY' tabel wijzen, Er zijn 2 soorten entry's in deze tabel, Er kan 
gesprongen worden naar 'IJOB' als het een interrupt entry betreft, of naar 'JOB' 
als het geen interrupt entry betreft. Beide routines weten wat voor vector het 
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betreft en kunnen in de tabel 'VECTAB' de juiste gegevens vinden om het 
schakelen af te maken. Bij 'IJOB' is er niet veel aan de hand, maar bij ‘JOB’ 
worden nog enkele checks gedaan. 

Ten eerste wordt er binnen ‘JOB’ niet geschakeld als er niet geschakeld hoeft te 
worden, duw.-z- het zero-page gebied wordt niet eerst uitgeswapt, om daarna weer 
zinloos te worden ingeswapt (zonder veranderingen) . Verder wordt er bij de 
PUT-EYTE en. GET-BYTE vectoren niet geswapt (context switching). Kunt U bedenken 
waarom niet? 

Verder wordt zero-page #60 gesaved. Dit is gedaan omdat editen met °/' gedurende 
GRMOD de meegegeven opties wist. Bij P-CHARME op #1080 kan dit U aardig 
opbreken. Bij Branquart dus niet, Een optie wordt maar 1 maal uitgevoerd, waarna 
de rest zonder optie wordt afgehandeld. Dit kan zeer vervelende consequenties 
hebben. Dus heb ik daar maar wat aan gedaan. 

Verder ziet U dat bij SAVE-FILE de routine ‘UPDATE'VECTORS' wordt aangeroepen, 
Dan kan ik nu meteen een blik vol met ellende open trekken. Wat is er namelijk 
aan de hand, Stel we hebben 'FCOS’ ingetypt. Daarna zeulen we door naar 'ED&4 
waarin we met FCOS willen saven. FCOS is sneller dan CDS51, dus geniet een beetie 
de voorkeur. Dit wordt nog eens versterkt doordat COS1 plotseling zijn korte 
pauzes laat vallen. Maar daar kom ik verderop nog op terug. Goed: FCOS laat 
SAVE-FILE, PUTBYTE en GETBYTE naar de JOSBOX wijzen. Door het intypen van 
'ED64', een commando die de ATOM van huis uit niet kent, worden hier ‘VECENTRY' 
entry’'s voor geplaatst. Nu wordt binnen E£D64 de outchar routine veranderd. 
Willen we de message ‘PLAY TAPE! krijgen, dan moet voor een outchar wel 
teruggeschakeld worden van de JOSBOX naar ED64. Dat gaat nu goed doordat bij 
entry van SAVE-FILE de outchar vector geadministreerd wordt. Alles kits hoor ik 
U al zeggen. Helaas, nadat we wat gesaved hebben met FCOS willen we met het 0 
commando nog even kijken hoe de text qua layout eruit ziet? Redelijke wens toch, 
nietwaar? Helaas, het systeem hangt. Dat komt doordat ED&4 een nieuwe outchar 
routine hiervoor wil inlinken. Onder veronderstelling dat de betreffende vector 
nog naar de oude cutchar routine wijst (wat hij dus nu niet meer doet) wordt 
slechts het low-order deel vervangen. Het low-order deel wijst dus naar de 
nieuwe outchar routine, terwijl het high-order deel naar de bijbehorende 
'VECENTRY' wijst. Puinhoop dus, Daarom maakt Branguart na een SAVE-FILE het 
resultaat van ‘UPDATE'VECTORS' wat betreft de outchar routine weer ongedaan, 
zodat het gestelde probieemn niet meer optreedt. U ziet dus, dat we hier met 
ingewikkelde materie te maken hebben. 

Nog een paar losse flodders: 

— COSt zal, als de PUT-BYTE en GET-BYTE vectoren verzet zijn, geen korte pauzes 
meer kennen, Dat komt doordat COS naar de stack kijkt, wie hem heeft 
aangeroepen. In ons geval Branguart. Hij bemerkt dan, dat hij die niet kent, en 
laat de korte pauzes schieten, Remedie: direct na ‘COSI’ saven, zodat de 
vectoren nog niet veranderd kunnen zijn! 

- Het zal blijken dat ‘STEP’ uit de TOOLKIT niet werkt. Tevens heb ik al 
opgemerkt, dat de interrupt afhandeling niet altijd even scepel verloopt. Wat is 
er aan de hand. Bezie hiervoor het volgende voorbeeld: 





18 REM VOORBEELD SLECHTE 18 REM VOORBEELD GOEDE 
24 REM VECTOR SETTING 20 REM VECTOR SETTING 
25 GRMOD 25 GRMOD 

32 P=k2809 30 P=#2809 

40 £ 40 C 

58 LDA@1 50 LDAEL 

60 STA#B800 &0 STA#B8GG 

70 LDAG#S 78 LDA@#G 

88 STA#204 82 STA#ZE4 

F0 LDAEHAD 98 LDAEHAB 

109 STA#205 109 STA#205 


110 RTS 118 RTS 
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1283 1281 
138 P=#2880 158 P=#2880 
148 £ 1488 £C 
158 LDA&#AD 159 LDA@HAD 
160 STASAOZO 168 STARAOGB 
178 LDA@#04 178 LDA@#04 
180 STA#AQGI 188 STA#ADD! 
198 LDAESBB 190 LDAERBE 
200 STA#AA02 2009 STA#ABAZ 
218 LDAE#6B 218 LDAE#&E 
220 STA#ABES 228 STA#ABDS 
258 LDA&S40 238 L DAERAG 
248 STARADBA 240 STARABO4 
256 LDAESFF 250 LDA&AFF 
240 STA#B884 260 STA&BBG4 
270 STA4B8B5 278 STA#BSO5 
288 STA#B804 280 STA#B806 
298 STA#B827 298 STARBBD7 
382 LDA@#40 380 LDAE#48 
310 STA#BEGB 310 STAKBO2B 
328 LDAE#CA 328 LDA&#CA 
53 STA#BBOE 338 STA#BEBE 
348 CLI 348 CLI 
358 RTS 358 RTS 
3681 560) 
578 LINK #2809 570 LINK #2608 
388 REM GEEN ENTER SOS {----> 580 ;REM ENTER 506 
398 LINK #2989 390 LINK #2880 
400 END 400 END 

Links zal het programma blijven ‘hangen’, terwijl rechts alles goed gaat. Wat 


gebeurt er? Met LINK #2888 wordt de IRG vector gezet op het A-blok met romnr. 1. 
Pas bij LINK #2888 wordt de interrupt geactiveerd. Links wordt niet tussendoor 
de SOS betreden, waardoor de IRQ administratie niet wordt bijgehouden. Wel wordt 
in GROMD de basic prompt geplaatst, dus staat dan een andere rom voor dan nr.t. 
Dat kost tijd, en intussen komt van de VIA timer een interrupt voor rom 1, De 
interrupt duikt prompt de verkeerde rom in, nl. de JOSBOX en het systeen hangt. 
Rechts wordt de 505 wel betreden, de IRG vector wordt netjes verzet, en er kan 
tussen rom 1/interrupt en GRMOD geschakeld worden, 

Begrijpt U dit? Dit impliceert tevens dat ‘STEP! uit de JOSBDX wel werkt, maar 
‘STEP’ uit de TOOLKIT niet zondermeer. Waarom? 'STEP' uit JOSBOX zet zelf de IRG 
vector op #A0DO, zodat interrupts of direct in de JOSBOX rom prikken, of er 
geschakeld wordt naar een andere rom. Dat laatste komt omdat om van de JOSBOX 
rom weer af te komen (dus een andere rom voor te schaketen) automatisch 
“UPDATE 'VECTORS' wordt aangeroepen. Geen vuiltje aan de lucht. Maar ‘STEP’ uit 
TDOLKIT vertikt het de IRG vector zelf op #A0D@ te zetten, Aangezien de ATOM 
standaard deze vector al op #AQ00 zet, zal bij het zoeken naar 'STEP' dit adres 
zeer hoogst waarschijnlijk aan een andere box worden toegekend. Resultaat: 
vastlopen. Remedie: ROM XX; ?#204=0; 7N205=#A0; UNLOCK; STEP. 

Overigens zal deze 'STEP' normaal ‚dus zonder Branguart, ook niet werken als U 
net de hand deze IRQ vector gaat verplaatsen. De TOOLKIT is dus niet zo'n fraaie 
box, zal ik maar zeggen. 


Ik wens een ieder veel suctes met deze SOS. Wilt U hem niet plaatsen, dan hoop 
ik, dat U zich met dit verhaal toch kunt vermaken (al was het dan maar omdat U 
zo van puzzelen houdt), 

Als laatste wil ik nog volstaan met de mededeling dat het alleen verantwoord is 
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on GAGS, P-CHARME en GRMOD net elkaar te mengen. Anders wordt het zo'n zooitje, 
dat zult U wel begrijpen (hoop ikt). Hieronder voeg ik nog een leuk demonstratie 
programmaatje toe, om mijn praatje geheel af te maken. Zoekt U zelf de 
knelpunten even op? 

Zijn er onbegrijpelijke problemen, probeer ze dan reproduceerbaar te maken, en 
neem contact met mij op. 





10 PROGRAM DEMO 478 

28 489 PROC CURSOR-OFF 

38 REM KENRERKEENKK INEEN KEEK 498 28E{=0jP,* « 

40 REM # _ DEMONSTRATIE * 508 PEND 

58 REM « BRANGUART * 518 

60 REM * MET P-CHARME * 528 PROC CURSOR-ON 

78 REM # _GAGS & GRMOD % 530 PHEL=KFFGP,"* 

38 REM x * 540 PEND 

90 REM « VERZETTE * 558 

108 REM # POINT-PLOT VECTOR &# 568 FUNCTION RANDCA) 
118 REM # MEERDIMENSIONAAL + 570 REM FUNCTIE LEVERT 
128 REM « ARRAY MET BLOCK + 588 REM WAARDE DP 

130 REM # AFDRUKKEN TEKST «* 598 RAND=A 

148 REM HEAREKKEKEN EEKE ENEN 680 DUMMY 

152 618 FEND 

150 REM DIT SOORT PROGRAMMA'S 620 

179 REM ZOUDEN EEN NETJES 638 PROC DUMMY 

180 REM GEBRUIK VAN 648 REM LEKKER NIETS DOEN 
190 REM BRANGUART KUNNEN ZIJN 659 PEND 

228 REM DUS NIET WILD BOXEN 668 





218 REM GAAN GEBRUIKEN 11114 678 FUNCTION SOORT 

220 688 REM SOORT PLOT 

230 X=20;Y=20 678 SOORT=ABS(RND} 4241 
Z4@ DIM XXIX, 700 FEND 

250 710 

268 PROC INITIALISATIE 728 FUNCTION MODE 

270 FOR I=1 TO X 738 REM FEATURE MODE 

288 FOR Jel TO Y 740 _MODE=ABS(RND) 45 

298 XX(I,J=ABS(RND} X200+20 758 FEND 

508 NEXT 760 

318 NEXT 778 PROC TEKST 

320 PEND 788 VTAB 2;HTAB 3 

358 798 P, "DEMONSTRATIE * 
340 PROC TEKEN 888 P."BRANGUART*E"" 

350 FOR I=t TO X 818 WINDOW Q,22,150,223,23 
360 FOR J=l TO Y 820 PEND 

378 A=ABS (RND) ,150+22 858 

388 B=ABS (RND) £20 848 GRMOD 

3598 C=ABS5 (RND) 420 858 CURSOR-OFF 

400 REM HELAAS PAKT GAG5 848 BORDER RAND(1},RAND (1) 
410 REM MAAR BEPERKT B70 TEKST 

429 REM FUNCTIES IIEEEIE B88 INITIALISATIE 

450 CUBE SOORT,MODE,XK(I,J) ,A,B,C 898 TEKEN 

4408 NEXT 9DQ SCROLL UsVTAB 15;HTAB 10 
A58 NEXT 918 EURSOR-ON 

460 PEND F28 P,"REDANK Uert 


938 END 
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18 REM tluustrennnn enn nenten 
28 REM # _ BRANQUART-S0S 
38 REM # AUT: TH,DEN EXTER 
40 REM & DATUM: 20-03-1985 
56 REM * VERSIE 1.1 

68 REM « REQUIRED: SALFAA 
70 REM HAREN RERK KEER KK EKEREN 


REN 


sa P‚$i2* KBRANG" 
188 P."UARTER""*  4SCHAKEL* 
118 P‚,*" OPERATING SYSTEMe"* 
128 P." AUTEUR: THEO DEN” 
130 P‚* EXTEReR"1110n hd 
140 P‚" ##EVEN GEDULDER"’“‘* 
159 REM I5 P-CHARME IN 508 
168 REM STRAKS AANWEZIG? 

170 $#100="YES";REM eerter 
188 PASS2;GOS.a 

198 PAS51;605.a 

200 REM WAKE-UP SOS 

210 ? (ASSEMBLY) =#40 

220 ?("ASSEMBLY+1}=#BF 

238 P‚* KRDATARE" 
248 e=0 

250 P. "CODE: "&('ASSEMBLY) "—" 
260 P.&LEND'OF ASSEMBLY) ” 

278 P. “WORKAREA: "& (BASE) *-" 
290 P‚&(FREE) ° 

298 P."LATCH: "&(LATCH) ’ 

508 P‚ "SCHADUW: “& (SCHADUW) * 
318 P. “AANTAL ROM'S: “(MAX)” 
320 IF $#100="NO" THEN GOTOSSO 
530 P‚ “WITH P-CHARME AT ROM: " 
348 P. (ROM PCHARME) ‘;GOTD 568 
550 P. “WITH NO P-CHARME"' 

363 END 


589a ASM-BEGIN OF ASSEMBLY 
390 

400 (# ##?244 IN TE STELLEN 
410 DOOR DE GEBRUIKER 
420 sxt len EXTRA FACILIT, 
430 MAX=AANTAL ROM'S 

480 #) 


450 

4460.LIST Aarden 
470.TABLE TOP+1,TOP+#&1001 

480, VERSION 

490. OPTION :@1012000 

500 

510 #ESCHAKELGEGEVENS en 
S20:LATCH=HBFFE Madd 
530: SCHADUW=#B8DA Aer? 7e 
540: MAX=B ver 7ar 


ROM PCHARME=7 Aid 
1 ZPBASE=#90 Van et 
: 1PLENGTH=# 10 AKA Ad 





598\ #RWORKAREARH 
608 Aan Ien 
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618: BASE=END ‘OF "ASSEMBLY 
RKLOW=BASE 

630: BRKHIGH=BRKLOW+ 1 

640: BRKROM=BRKHI GH+ 1 

658: STARTROM=BRKROM+1 

668: TEMP=STARTROM+L 

670: VECTOR=TENP 

680: DUMP=TENP +1 

690: VECTAB= (MAX) « (ZPLENGTH} 
7008: VECTAB= (VECTAB} +DUMP+1 
710: SUB'ACCU=(VECTAB) +1+1543 
720: SUB'STATUS=SUB' ACCU#1 
750: SUB’ Y=SUB"STATUS+1 

748: SUB‘ X=SUB'Y+1 

758: STACKPOINTER=SUB ‘ X 

760: SUBVECTOR=SUB'X+1 

778: INTVECTOR=SUJBVECTOR+2 
788: INT ‘ACCU=INTVECTOR+2 
790: INT'STATUS1=INT "ACCU+1 
880: INT “STATUS2=INT ‘STATUS +1 
818: INT" X=INT'STATUS2+1 

828: INT'Y=INT"X4{ 

830: OPT ‘PCHARME=INT 'Y+1\st Ee 
840: FREE=OPT 'PCHARME +1 

850 

860: BRK=$202 

870: TEXT=#F7D1 

888: CR=#D 

890: LF=tA 

90D: DEL IM=HEA 

10 

920\ **START ASSEMBL Yes 
9350: 'ASSEMBLY=#EDDE Ane? Den 
940.CODE ‘ASSEMBLY 

950.BYTE @,0 

368 (x ENTRY IN SYSTEM #) 





970: ENTRY\LDAGHFF Mer? Per 
9B0\STA#BBA2 add 
998 LDA6 \SHFT-CR? 
1840 CMP@1 \aeller 


1018 BNE LABELS 

1929 BIT #BOO1 

1038 BMI LABELS 

1842 LDXeD 

1058 LDA (5,5) 

1860 CMP@CR 

1878 BNE LABELS 

1888 JMP UNLOCK+5 
1090:LABELS BIT SCHADUW 
1188 BVC NOT 'LOCKED MLOCKED? 
1118 JMP LOCKED 

1128 

1158 (# NOT LOCKED SEARCH #) 
1148: NOT 'LOCKED LDA SCHADUW 
1158 STA STARTROM 

1168 JSR UPDATE 'VECTORS 
1178 JSR SWITCH" CONTEXT ‘OUT 
1188 LDA BRK+t 

1198 CMPE(HANDLER) /256 

1208 BEG LABEL: 
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1218 STA BRKHIGH 

1220 LDA BRK 

1235 STA BRKLOW 

1248 LDA SCHADUW 

1250 STA BRKROM 
1268:LABELI JMP SWITCH 
1278 

1288 (+ TRY NEXT BOX #) 
1296:NEXT'BOX INC SCHADUW 
1508 LDA SCHADUW 

1318 STA LATCH 

1328 CMP@(MAX) 

1338 BNE LABEL2 

1540 LDA8G 

15350 STA SCHADUW 

1366 STA LATCH 

1370: LABEL2 

1388 JSR SWITCH“ CONTEXT" IN 
13598 LDA SCHADUW 

1408 CMP STARTROM 

141B BNE SWITCH 

1420 JMP NOT FOUND 

1450: SWITCH LDA@(HANDLER) /256 
1448 STA BRK+I 

1456 LDAG(HANDLER) 256 
1460 STA BRK 

1478 LDA#A0O0 

1480 CMPE#4G 

1490 BNE NEXT “BOX 

1590 LDA#ABO1 

1518 CMP@#EF 

1528 BNE NEXT 'BOX 

1558 JMP#AQG2 

1548 

1559 (# CENTRAL BRK HANDLER # 
1560: HANDLER PLA 

1578 STA TEMP 

1588 PLA 

159D STA B 

1688 BIT SCHADUW \LOCKED? 
1618 BVC NOT 'LOCKED "ERROR 
1620 JMP LOCKED'ERROR 
1430: NOT ‘LOCKED'ERROR CHPE&94 
1648 BNE NOT'ERROR'94 

1658 LDY#5E \RENUM. teltae 
1688 LDA (5),Y 

1678 CMPECH",* 

1680 BNE LABEL99 

1690 JMP NOT “FOUND 
1768:LABELSS LDX@HFE 

1718 TXS 

1720 JMP NEXT'BOX 

1730 

1788 (& FUNCTION CHECK #) 
1752: NOT ‘ERROR '94 

1760 LDA BRKLOW 

1770 STA BRK 

1788 LDA BRKHIGH 

1790 STA BRK+1 

1889 LDAB 


1B18 CMPE174 \ERROR 174 
1828 BED INSTALL 

1830 CMPE29 \ERROR 29 
1548 BNE NOT’ INSTALL 

1858 


1868 (# INSTALL FAKE CALLER « 
1878: INSTALL TSX 

1888 STX STACKPOINTER 

1898 LDXetFF 

1984:LB1 LDA#100, X 

1918 CPX STACKPOINTER 

1928 BEC NOT" INSTALL 

1938 BEG NOT’ INSTALL 

1948 DEX 

1959 DEX 

1960 AND@#FO 

1978 CMPEBAG 

1988 BEG LBi 

1990 CPX@HFD \NO A-BLOK? 
2000 BEQ NOT“ INSTALL 

2918 TXA 

2028 CLC 

2038 ADCE3 

2840 STA STACKPGINTER 

2858 PHA 

2068 PHA 

2078 PHA 

2888 TSX 

2890:LB2 LDA#103,X 

2190 STA#100,X 

2118 INX 

2120 CPX STACKPCINTER 

2138 BNE LB2 

2140 LDA STACKPOINTER 

2158 TAX 

2168 DEX 

2178 LDA SCHADUW 

2188 STA#128, X 

2190 DEX 

2208 LDA@(SWITCH'BACK-1)/256 
2218 STA#108, X 

2228 LDA@(SWITCH'BACK-1) 4256 
22538 DEX 

2240 STA#100,X 
2250:NOT'INSTALL 

2268 JSR SWITCH'CONTEXT OUT 
2274 JSR UPDATE 'VECTORS 
2288 LDA BRKROM 

2298 STA SCHADUW 

2302 STA LATCH 

2318 JSR SWITCH'CONTEXT ‘IN 
2320 

2338 (+ TERMINATE SEARCH #) 
2340 LDA @ 

2358 PHA 

2562 LDA TEMP 

2378 PHA 

2589 JMP (BRK) 

2598 

2488: LOCKED'ERROR LDA SCHADUW 
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2418 STA BRKROM 
2428 LDA @ 

2450 CMPEI4 
2444 BEG LABELS 
2458 JMP NOT'ERROR'94 
2460:LABEL3 LDXESFF 
2478 TX5 

2488 JMP NOT'FOUND 
2490 

2532 (# SWAP ZERDPAGE OUT 
2510 #91-898 ALWAYS 
2528 «) 

2530: SUITCH' CONTEXT ‘OUT 
2540 LDA SCHADUW 

2558 ANDE#F 

2568 TAX 

2578 INX 

2580 LDAE9 

2590:LABEL4 GLC 

2688 ADC@ZPLENGTH 

2618 DEX 

2620 BNE LABEL4 

2638 LDX@CZPLENGTH) —1 
2640 TAY 

2650 DEY 

26&0:LABELS LDA ZPBASE,X 
2678 STA DUMP,Y 

2680 DEY 

2698 DEX 

2780 BPL LABELS 

2718 RTS 

2728 

2758 (+ SWAP ZEROPAGE IN 
2748 #91-#9B ALWAYS 
2758 « 

2760: SWITCH'CONTEXT ‘IN 
2778 LDA SCHADUW 

2788 ANDENF 

2790 TAX 

2802 INX 

2810 LDAEB 

2920:LABEL& CLC 

28358 ADCEZPLENGTH 

2830 DEX 

2853 BNE LABEL& 

2860 LDXE(ZPLENGTH) -1 
2878 TAY 

2880 DEY 

2090:LABEL7 LDA DUMP, Y 
2909 STA ZPBASE,X 

2918 DEY 

2920 DEX 

2950 BPL LABEL7 

2948 RTS 

2950 

2968 (# START SEARCH LOCKED # 
2970:LOCKED LDA BRK+1 
2988 CMP@(HANDLER) /256 
299B BEG LABEL21 

2008 STA BRKHIGH 


\ERROR 94 
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3818 LDA BRK 
3820 STA BRKLOW 
3058 LDAË(HANDLER) /256 
3048 STA BRK+1 
5050 LDA@(HANDLER) 2256 
3068 STA BRK 
3078 LDA SCHADUW 
3088 STA BRKROM 
3890:LABEL21 LDA#AOO0 
3183 CMPe#40 
3118 BNE TRAP ERROR 
5129 LDA$ADSI 
3158 CNPERBF 
3148 BNE TRAP"ERROR 
S158 JMPRAOB2 
3168: TRAP'ERROR JMP#C550 
3170 
5188 (# NOT FOUND IN BOXES 
5190 TRY OWN TABLE 


3280 IF NOT FOUND IN TABLE 
3210 TRY BY ORIGINAL BRK 
5220 «*) 


3230: NOT "FOUND LDA BRKLOW 
3240 STA BRK 

5258 LDA BRKHIGH 

526Q STA BRK+1 

3270 JSR SWITCH'CONTEXT ‘OUT 
3280 LDA BRKROM 

3290 STA SCHADUW 

3300 STA LATCH 

5318 JSR SWITCH'CONTEXT' IN 
3320 LDX@KFF 

333B: NEXT" STATEMENT LDY#5E 
3340 LDA(S) ‚y 

3350 CMPECHP.* 

3360 BNE LABELS4 

3370: TRAPCERROR'94 JMPRCSSB 
3388: LABELS4 DEY 

3390: NEXT “CHAR INX 

3400 INY 

341@:LABEL1Z LDA TABLE, X 
5429 CMPERFF 

3430 BEQ TRAP 'ERROR'94 
5440: LABELIS CMP@NFE 

5450 BEQ LABEL 14 

3468 CMP(S) ‚y 

3470 BEQ NEXT CHAR 

3480 DEX 

349@ LDA (5),Y 

5508 CMPECH”,* 

5510 BEG LABEL19G 
3520:LABELI3 INX 

3530 LDA TABLE ,X 

3540 CMPEHFE 

3550 BNE LABELS 

3548 INX 

3578 INX 

3580 JMP NEXT" STATEMENT 
3590: LABELLOG INX 

34680 LDA TABLE, X 
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3610 CMP@SFE 

3620 BNE LABEL100 

5658 INY 

5640: LABEL14 LDA TABLE+1,X 
3650 STA#SS 

5658 LDA TABLE+2,X 

3678 STA#52 

5680 STY3 

3690 LDX4 

5706 JMP (HFFDOSZ) 

35710 

3720 (* OWN COMMANDS &) 

3750: DISMOUNT JSRHC4E4 

378 LDA6 \DER. MODE? 
3758 CMPEÉO1 

5768 BE9 LABELSG 

3778 JMP#C558 

3780:LABELSS LDAEG 

3790 STA ASSEMBLY 

35808 STA 'ASSEMBLY+1 

3810 JMP HFFSF \BREAK ATOM 
3829 

5850: ROM JSR#C4EL 

5848 JSR UPDATE 'VECTORS 

3850 LDX4 

3860 DEX 

5870 STX4 

38080 LDA#16,X 

3898 AND@#F 

3900 ORAEHAG 

3918 STA SCHADUW 

5920 STA LATCH 

5958 LDA#A00D 

3940 CMPE#4G 

3958 BNE LABELS 

3968 LDA#ABTI 

5978 CMPE#BF 

5985 BEG LABEL28 

3990: LABEL? JSR TEXT 

4000. ASCII /NO ROM AVAILABLE/ 
4810,BYTE CR,LF,DELIM 
4820:LABELZ3 LDA BRKROM 

4030 ORACH4D 

4048 CMP SCHADUW 

4058 BEB LABEL6O 

4040 LDAEHD8 \INSTALL ORIG. 
4470 STA BRK \BRK HANDLER 
44850 LDAG#CS 

4098 STA BRK+I 

4100: LABEL&B JMP#CSSB 

4110 

4120: UNLOCK JSR #C4E4 

4130 LDA SCHADUW 

4148 ANDE#F 

4159 STA SCHADUW 

4158 STA LATCH 

4178 JMP#CSSB 

4180 

4190, IF $#108="NO";.GOTO 4400 
8I2R0:PCOM LDA & ADIR., MODE? 





4218 CMPERGI 

4220 BNE LABELS3 

4230 LDA SCHADUW \PCH LOCKED? 
4238 CMP@CROM'PCHARME) : #40 
4250 BEQ LABELSS 

4260 BIT SCHADUW ALOCKED? 
4270 BVC LABELSI 
4280:LABELSS JMP#C5SE 
4290:LABELSS LDA SCHADUW 
4500 CMP@(RGM'PCHARME) : #40 
4318 BES LABELSS 

4520 JSR SWITCH'CONTEXT ‘OUT 
4358 LDAE(ROM'PCHARME) 

4340 STA SCHADUW 

45352 STA LATCH 

4360 JSR SWITEH'CONTEXT' IN 
4370:LABELSS JSRBA42E 

4388 JMP#CS1B 

4398 

44BB:HEX JSR #C9DA 

AA10 JSRHC4E4 

4420 LDA6 \DIR. MODE? 
8438 CMPEHD1 

4440 BE LABELSZ 

4450 JMP #C558 

4460: LABELS2 DEY 

4470 LDA#52 

4489 STA#L2 

4498 STA#55 

4580 LDAC#S54) ,Y 

8518 CHPE#D 

4520 BNE P+5 

4558 JMP#CD9B 

4540 JMP#C2B6 

4550 

4560 {# TABLE OF COMMANDS « 
4570: TABLE 

4588. ASCII /DISMOUNT/,8FE 
4590.BYTE (DISMOUNT)/256 
4680,BYTE (DESMOUNT) 4256 
4618.ASCIT /ROM/,#FE 
4620.BYTE (ROM) /256 
4658.BYTE (ROM) 4256 

4640, IF $#10B="NO";.GOTO 4480 
4650.ASCII /-/,8FE 
46&0.BYTE (PCOM) /256 
4670.BYTE (PCOM) 4256 
4680.ASCII /#/,8FE 
4690,BYTE (HEX) /256 
4700.BYTE (HEX) 4256 
4718.ASCII /UNLOCK/,#FE 
4720. BYTE (UNLOCK) /256 

4750, BYTE (LINLOCK) 7256 

4780. BYTE #FF 

4758 

4750 (# CHECK VECTORS 

4770 YRY TO SWITCH A-BLOK 
4788 VECTOR 

4790 

5884: UPDATE 'VECTORS 
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4814 PHP 

4820 SEI 

4830 LDXE9 

4840 LDYE2 

4850: LABELSO LDA#201 ,X 

4868 ANDE&F@ 

4878 CMPE#AG 

4888 BNE LABELS! 
4890 CPX82 

4900 BEG LABELSI 
4910 LDA#200,X 

4920 STA VECTAB+1,Y 
4930 LDA#201,X 

4940 STA VECTAB,Y 
4950 LDA SCHADUW 
4968 STA VECTAB+2,Y 
4978 TXA 

4982 ASLA 

4998 ASLA 

Se00 CLC 

5818 ADCS(VECENTRY) 2256 
5020 STA #200,X 

5052 LDAG(VECENTRY)/256 
5048 ADCEG 

5050 STA #201,X 
5860: LABELSI INX 
5078 INX 

5088 INY 

5098 INY 

5188 INY 

5118 CPX@RIC 

5120 BNE LABELSO 
5138 LDARSFF 
5148 AND@#FD 

5159 CMP@#AG 
5168 BNE LABELS2 
5178 LDA#SFF 

5188 STA VECTAB,Y 
5190 LDA#SFE 

5200 STA VECTAB+1,Y 

5218 LDA@(VECENTRY+14#8) /256 
5220 STASSFF 

5238 LDA@(VECENTRY#14#8) 256 
5240 STANSFE 

5258 LDA SCHADUW 

5268 STA VECTAB+2,Y 
5270:LABEL32 PLP 

5288 RTS 

5290 

5309 (# ENTR. VECTOR PATHWAYS 
3318 «) 

5320: VECENTRY 

5530 JSR ISAVE;LDXCOB; JMP 1JOB 
5548 NOP; NOP; NOP; NOP; NOP 

5350 JMP#C5SE 

5360 JSR ISAVE;LDXEB6; JMP IJOB 
5578 JSR SAVE;LDXE0P; JMP JOB 
53B8 JSR SAVE;LDXE12; JMP JOR 
1598 JSR SAVE;LDXEISS JMP JOB 
5400 JSR SAVE;LDX@18; JMP JOB 





\BRK VECTOR 


\PLOT VECTOR 
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5410 JSR SAVE;LDXE21; JMP JOB 
5420 JSR SAVE:LDXE24; JMP JOB 
5458 JSR SAVE;LDX@27; JMP JOB 
5440 JSR SAVE;LDX@50; JMP JOB 
5458 JSR SAVEsLDXESS; JMP JOB 
5468 JSR SAVE;LDX@36; JMP JOB 
5478 JSR SAVE;LDX@39; JMP JOB 
54BD JSR SAVE;LDX@42; JMP JOB 
5490 
5580: SAVE PHP 
5518 STA SUB" ACCU 
5520 PLA 
5538 STA SUB'STATUS 
5540 STX SUB'X 
5559 STY SUB'Y 
5568 RTS 
5578 
5588: ISAVE PHP 
5598 STA INT'ACCU 
5608 PLA 
5618 STA INT’STATUSi 
5628 STX INT'X 
3630 STY INT'Y 
564D RTS 
5650 
5648:L0AD LDY SUB'Y 
5478 LDX SUB'X 
5688 LDA SUB'STATUS 
5690 PHA 
5708 LDA SUB'ACCU 
5718 PLP 
5729 RTS 
5750 
5740: ILDAD LDX INT'X 
5758 LDY INT'Y 
5768 LDA INT'STATUSI 
5778 PHA 
5788 LDA INT‘ACCU 
5798 PLP 
5808 RTS 
5810 
5828 (# INTERRUPT SWITCHING 
5838 PATHWAY 
5040 «} 
5850: IJOB PLA 
5848 STA INT'ACCU 
5878 PLA 
5880 PHA 
5898 STA INT'STATUS2 
5988 LDA SCHADUW 
5918 PHA 
5920 LDA VECTAB+2,X 
5958 STA SCHADUW 
5940 STA LATCH 
5950 LDA VECTAB,X 
3960 STA INTVECTOR+1 
5978 LDA VECTAB+1,X 
5988 STA INTVECTOR 
5998 LDAELIENTRY) /256 
6008 PHA 
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6018 LDA@CIËNTRY) 256 

6822 PHA 

6058 LDA INT'STATUS2 

6240 PHA 

6950 LDA INT'ACCU 

6058 PHA 

6878 JSR ILOAD 

6088 IMP CINTVECTOR) 

6878 

6108: IENTRY JSR ISAVE 

&118 PLA 

6128 STA SCHADUW 

6158 STA LATCH 

6140 PLP 

&158 LDA INT'STATUS2 

&16B PHA 

&170 JSR ILGAD 

6188 RTI 

6190 

6288 (« NON INTER. SWITCHING 
6210 PATHWAY 

6220 #) 

6238: JOB STX VECTOR 

6240 TXA 

6258 PHA 

6260 LDA #50 \SAVE OPTIE PCH 
6270 STA OPT 'PCHARME \l tes 
6288 LDA VECTAB+2,X 

6228 CMP SCHADUW 

6338 BEU SHORT 'EXECUTION 
6318 CPXA2t \ SAVE FILE 
6328 BNE LABEL40 

6530 JSR UPDATE 'VECTORS \axl ter 
6340 LDX VECTOR 

6350:LABEL40 CPXE30 \GET BYTE 
&360 BEG SHORT 'EXECUTION 
6370 CPX833 \PUT BYTE 
6580 BEB SHORT 'EXECUTION 
6590 JSR SWITCH'CONTEXT'GUT 
6480 LDX VECTOR 

64108 LDA SCHADUW 

6420 PHA 

6450 LDA VECTAB+L,X 

6440 STA SUBVECTOR 

6450 LDA VECTAB,X 

6440 STA SUBVECTOR+1 

6478 LDA VECTAB+2,X 

6480 STA SCHADUW 

&438 STA LATCH 

6529 JSR SWITCH'CONTEXT IN 
&510 JSR LOAD 

6528 JSR P+é 

6530 JMP P+6 

6546 JMP (SUBVECTOR) 

6558 JSR SAVE 

6560 JSR SWITCH'CONTEXT ‘OUT 
6578 PLA 

6580 STA SCHADUW 

6598 STA LATCH 

6600 JSR SWITCH'CONTEXT' IN 


6618 LDA OPT'PCHARME \melter 
6628 STA #60 

6639 PLA 

6648 CMPE21 \SAVE FILE? 
4450 BNE LBIG 

6560 LDA VECTAB+13 

6678 CMPEHCE \ED64 OUTCHAR? 
6680 BNE LB1O 

6690 LDA@#CE Vet haer 
6708 STA#208 

6710 LDA&#AC 

6720 STA#207 

6750:LBi8 JSR LOAD 

6748 RTS 

6758 

6788 (# NO-SWITCH. PATHWAY #) 
46778: SHORT ‘EXECUTION PLA 

&780 LDX VECTOR 

6798 LDA SCHADUW 

6508 PHA 

6810 LDA VECTAB+2,X 

6828 STA SCHADUW 

&858 STA LATEH 

6B40 LDA VECTAB,X 

&850 STA SUBVECTOR#L 

6868 LDA VECTAB+1,X 

6878 STA SUBVECTOR 

&880 JSR LOAD 

6890 JER P+6 

6900 JMP P+6 

6918 JMP (SUBVECTOR) 

6920 JSR SAVE 

6230 PLA 

6940 STA SCHADUW 

6950 STA LATEH 

696D LDA OPT ‘“PCHARME id 
6970 STA #60 

6988 JSR LOAD 

6998 RTS 

7020 

7018 (# FAKE EXPRES, CALLER «) 
7820: SWITCH'BACK JSR SAVE 
7058 JSR SWITCH CONTEXT GUT 
7049 PLA 

7856 STA SCHADUW 

7848 STA LATCH 

7070 JSR SWITCH'CONTEXT "IN 
7083 LOA@LHANDLER)/256 \REINIT 
7098 STA BRK+I1 \HANDLER 
7108 LDA@CHANDLER) 4256 

7118 STA BRK 

7120 JSR LOAD 

7138 RTS 

7140 

7150: END OF ‘ASSEMBLY 

7160 

7178, UNRAVEL 

7180. SYMBOL 

7198.END CF ASSEMBLY 

7200 RETURN 
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HET CX--SCHAKEL SOFT 


VOORAF 


In het volgende artikel is het resultaat van een co-productie van een aantal 
mensen die met vallen en opstaan een werkend geheel hebben samengesteld uit een 
ware stroom van bijdragen van velen uit het land. Dank onbewuste meedenkers, 
dank. Het CX-systeem dankt zijn naam aan Gert de Jager, die ook de super snelle 
TURTLE- comamando's voor zijn rekening nam. We zijn ons heel wel bewust dat het 
wellicht allemaal wat beter had gekund. We zijn er echter niet op uit geweest om 
een onontwarbare spaghetti- baal te maken. De samenstellende delen moeten 
geeakkelijk, snel, zonodig door andere (betere), kunnen worden vervangen. Ook 
behoeft u niet alle mogelijkheden tegelijk te benutten, Pas het aan uw eigen 
behoeften aan. Lees vooral de handleiding goed door. Op- en of aanmerkingen 
ontvangen we gaarne, 


HET CX = SEHAKELSYSTEEM 
of: Schakelen om er uit te halen wat er in zit 


INLEIDING 
Ter herinnering; de schakelkaart van de club is als volgt ingedeeld: 


2 x 4k RAM op #AA0G 
2 x 4k RAM op #E2O2 
6 « Ak EPROM op #A008 


De software in de zes 4k EPROMs en de twee âk RAM-blokken op pagina AG moet 
hetzij elk apart hetzij in samenwerking met elkaar te gebruiken zijn. Om het 
laatste te realiseren zal een vorm van ‘bank — switching’ moeten worden 
toegepast, (het beurtelings ‘voor’ schakelen van de betreffende voet) Na de 
komst van de schakelkaart zijn een aantal schakelroutines ontwikkeld, In de loop 
der tijd zijn een groot aantal 4k EPROMS verschenen met een nog grotere 
hoeveelheid commando's, statements en functies, Er is onvoorstelbaar veel 
vernuft ín dit werk gestoken en zeker niet in de laatste plaats door de leden 
van de Fed, Acorn Computerclubs zelf, Er is echter een naar, In (te) veel 
‘boxen’ komt bijv. een 1208 Baud COS-routine, READ, DATA en RESTORE voor. 
Daarnaast verzetten Toolkit(box) en Superbasic van PP een aantal vectoren en 
maken het er daardoor niet gemakkelijker op deze op te nemen in een systeem, En 
last but not least ís onze toch al aparte basic met P-CHARME verrijkt. Deze 
laatste 4k EPROM heeft onze ATOM min of meer uniek gemaakt. (voor outsiders: ook 
eigen werkt} Door een aantal mensen uit de regio's Rotterdam en Den Haag is een 
en ander eens op een rij gezet. Resultaat van dit onderzoekje heeft geleid tot 
het volgende concept. 


* Installeer als basis P-CHARME en gebruik de uitbreidingsfaciliteiten daarvan. 

* Gebruik 4k EPROMS waarin naar gebruiksaard gesorteerde routines voorkomen, 
(Calcrom, Wordpack en recent de Gagsrom en de DISKROM) 

* Maak daarnaast een EPROM met meer algemene, veelvuldig, toegepaste (basic) 
extensions, 

« De typisch voor gebruik ín eigen of kleinere kring bestemde uitbreidingen 
moeten via de uitbreidings mogelijkheden van P-CHARME simpel in het systeem 
kunnen worden geimplementeerd 

* Ontwikkel een schakelsoft die dit aan kan en initialiseer met een 
bootstraproutine een aantal systeemuitbreidingen (DOS, functietoetsen, 
controls, etc.) 

& Probeer alles zo gebruikersvriendelijk mogelijk te houden. 

“+ Documenteer alles zo volledig mogelijk, 
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De eigenlijke schakelsoft met de bijbehorende uitleg ís reeds in ACORN NIEUWS 
jrg. 4 nr. 1 blz. 58 gepubliceerd, 


MOGELIJKHEDEN. 

In principe kunnen nu alle statements door elkaar in een programma gebruikt 
worden (ook in procedures en functions), mits ze niet blijvend zero-page 
adressen gebruiken in het stuk #90-#9F, Een beperking is aan dit en vele andere 
schakelsysytemen verbonden. Een functie (bv. TRUE) kan in deze routine niet in 
combinatie met een andere box dan P-CHARME gebruikt worden (bv, DISCS(TRUE)). 
Dit lijkt míí geen onoverkomelijk bezwaar omdat de functie eerst aan een 
hulpvariabele kan worden gegeven (bv. A=TRUE;DISAS(A)). Kortom u dient zich te 
beperken bij het toekennen van parameterwaarden uit functies, procedures eg 
multidimensionele arrays in statements uit andere eprom’s, U zuit in die 
gevallen een hulpvariabele moeten gebruiken om die waarden in dat statement te 
kunnen gebruiken. (De programma's SPREDIT, PAINTED en demo's voor ingewikkelder 
schakelsystemen zijn op deze wijze aangepast zonder meer te draaien; voorts is 
het goed te weten dat een ( 3; }) altijd P-CHARM voorzet) Tevens kan na de eerste 
run van een “PROGRAM" met een "GOTO" in een programma gesprongen worden. 
Uiteraard niet ‘midden in’ routines springen, Bovendien moet is het mogelijk een 
(minid symbolische assembler hierachter te hangen of meerletterige 
variabelennamen. 


Voorbereidingen 

Lees eerst om het geheugen wat op te frissen de artikelen over het 
‘driewegwissel' in AN. 2.2 p.ól e.v, 

Dan is het duidelijk dat er een aangepaste Floatingpoint EPROM moet worden 
gemaakt met een verwijzing naar het adres waar de schakelsoft staat. Kies voor 
de plaats waar de schakelsoft komt #1020 en niet #€800. Voor de nieuwe 
schakelkaart een kwestie van instellen; voor de oude kaart een ‘daktuintjae' 
bouwen op de LS 138 (IC.7) zoals hieronder is getekend, De niet gebruikte poten 
van de LS{5B afknippen, buig de overige pootjes, behalve pen 8 en 16 (aarde en 
+5 V}, horizontaal en ‘scheer’ ze totdat de 'lepeitjes’ resten. Monteer nu het 
‘gecastreerde’ IC op het tussenvoetje. Plak tot slot met tweecomponentenlijn 
eea. vast en plaats het product in voet 7, 







Faxxx 
JALS138 


batt ‚backup tor 





voetje LS118 
printplaat 





Kassa 





tussenvoetje 


ombouw fExxx naar f-1xxx 


De onderstaande wijziging moet in de Floatingpoint Eprom worden aangebrachtt 
D44F: AD 68 19 LDA #108% 

CMPER40 

BEG #D4CO 

LDA #A001 

CMPEHBF 

BNE #D44@ 

JMP #AD02 

JMP #1002 
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Yonder bootstrap worden de mogelijkheden van de ATOM niet volledig gebruikt, 
Gebruik voet IC.24 (ja die) op het Atomboard om een nieuwe, aangepaste, F-pagina 
te installeren volgens onderstaand schema. 


pen. 20 (IC 24 yvoet) 


uitbuigen 


gen 7 idem 





IC 45 Ic 48 LS138 Ic 48 LS138 


oude toestand nieuwe toestand 
Chipselect ombouw nieuwe F-EPROM 





Vanuit die aangepaste F-EPROM wordt nu aet een indirecte jump naar het 
startadres van de bootstrap routine(s) gesprongen. 


DE INSTALLATIE 
Als dit gereed is kan het CX gebeuren worden geinstalleerd. 


dews Zes 

CX-1,8 naar #1099 

CX-2.7 naar #AB28 in voet 2 

P-CHARME naar #A98@ in voet 7 

CX-DATA naar #6800 -—— #7FFF (eventueel) 


De overige EPROMS zoals CALC, EDIT, GAGSROM, DISKROM etc. naar de overige 
voetjes in willekeurige volgorde. 

Voorts is het noodzakelijk voor een goede werking dat RAM in het geheugengebied 
#9B0G-HIFFF aanwezig Í5. 

Voor het gebruik van de interupt-routines is het VIA-IC noodzakelijk. Gok moet 
link 2 op het ATOM- board gesloten zijn, 


HET GEBRUIK. 


SHIFT-BREAK 

Hiermee wordt een originele ATOM-break uitgevoerd, Dit moet gegeven worden als 
de machine aangezet wordt. Voor alle duidelijkheid: druk dus EERST op bv. SHIFT; 
daarna, dus samen met SHIFT op BREAk; laat dan eerst de BREAK-toets los en 
daarna de SHIFT-toets. 

Stel we willen voor BREAK een bootstrap prograama op #6880. Eerst het programma 
schrijven op #6808, daarna ?#7FFD=#4B. Voor REPEAT-BREAK kan bijvoorbeeld een 
bootstrapje op #6A00, (?47FFC=#6A), gezet worden. 


BREAK ALLEEN 

Reset de poorten, controleert of het DOS aangesloten is, zo ja: #DÛS; 
controleert of de klok loopt, zo ja: doorlopen. De bootstrap vervolgt set de 
melding "BREAK"; indien een basic- programma liep volgt nog: “AT LINE XX*, Dan 
wordt er gekeken op #7FFD om daar het paginanummer te halen waar eventueel een 
basic=bootstrapje staat, Op #7FFD kan een willekeurige pagina aangewezen worden 
om een basic bootstrap te plaatsen. Nadat de pagína-pointer van #7FFD is gehaald 
wordt eerst nog gekeken of daar inderdaad een programma staats zo ja, dan wordt 
de TOP-pointer goed gezet (belangrijk voor DIM- statements) en het 
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basic-progranma gestart. Het is belangrijk om bij het gebruik van de bootstrap 
de uwrite-protect van de schakelkaart aan te hebben omdat anders geheugenplaatsen 
gewijzigd kunnen worden door de processor. De oude textspace, van waaruit men de 
break gaf wordt opgeslagen op #9FFC on later te gebruiken, bv, om na het 
programma terug te springen naar de oude pagina. 





ESC-BREAK 
Indien men het basic-bootstrapie niet wil laten uitvoeren geef dan ESCAPE-BREAK. 


Er volgt dan tevens geen melding meer op het scherm. Indien in GRMOD een break 
gegeven wordt deze volgen met CTRL- L. 


REPEAT-BREAK 

Hierbij wordt het gehele systeem gereset, d.w.z. poorten goed zetten; indien het 
DOS aanwezig: #DOS; initialiseerd de DISKBOX, FAST, zet keyclics en page-mode 
aans tijdmelding uit; scherm schoon, meldt “ACORN ATOM DOS CX=RESET*" ( 
COS , indien geen DOS ) en geeft een overzicht van de basicprogramma's in het 
geheugen. Ook hier bestaat de mogelijkheid om een eigen basic= bootstrapje te 
runnen; de pagina=verwijzing staat nu op #7FFC. Ook bij deze break blijven de 
text- en array= pointers onveranderd; de oude pagina staat weer op #9FFC, 


EPROM x 

EPROM gevolgd door een box nummer zet het schakelsysteen uit en de gekozen box 
wordt ‘voor’ gezet. Met SHIFT en RETURN samen of het commando OFF wordt het 
schakelsysteen weer ingeschakeld en de eerder geselecteerde eprom opgenomen in 
het schakelsysteem. 


UITBREIDINGEN 


Zelf statements en functies toevoegen. 
Een mogelijkheid van dit systeem is het zelf toevoegen van commando's, 
statements en functies, bijvoorbeeld op de 1&k. kaart onder write protect. 


Dit kan op twee manieren: 
— op de in de handleiding van P-CHARME beschreven wijze (pg. 55-37}, 
= met de in CX-1 ingebouwde interpreter. 


In de CX-1 is een interpretor opgenomen die in een tabel zoekt op #xx00 Ox 
staat voor het high-byte ), Indien op #xx00 staat: #40, en op #xx@l staat: #BF 
dan springt de schakelroutine na in alle boxen gezocht te hebben naar de 
interpretor die dan in de tabel op #xx02 gaat zoeken, De routines die bij deze 
extra statements horen mogen overal in het geheugen staan, bv. ín het blok #6B08 
en verder. Dit heeft als voordeel dat we statements die we niet zoveel nodig 
hebben, of die erg veel ruimte gebruiken (zoals de 40#24 schermroutine) op het 
moment dat we ze gebruiken willen ingeladen kunnen worden. Ook kan op deze 
manier een nieuwe routine risicoloos getest worden. 

Op het blok #6800-#7FFF kan een CX-DATA gebeuren gemaakt worden dat naast een 
serie statements ook een evt. basic-bootstrap bevat, aìles naar eigen behoefte. 
Het hoofdsysteem blijft dan voor iedereen gelijk, alleen de CX-DATA verschilt 
per gebruiker. 


CX — SYSTEEM COMMANDO'S 


CX-1,8 
GRMOD schakelt deze routine uit de CX-2.7 in. 
TXMOD schakelt GRMOD uit, 


EPROM x 
Schakelt het schakelsysteem uit en de gekozen EPROM voor, met CHIFT & RETURN 
samen wordt het schakelsysteem weer ingeschakeld en de geselecteerde EPROM wordt 
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weer opgenomen in het systeen. EPRON Is uit te schakelen met OFF. 


# (zie AN 3.2 p,59 | 
p (zie AN 3.2 p.58 } 


BREAK 
Voert een deel van de ATOM-breakroutine uit. De routine zet de vectoren op 
default en reset een aantal poorten. 


TIME “uu-an:ss* 

Geeft een tijd op interrupt in de R-bovenhoek van het scherm. In de toekoast zal 
deze routine gaan samenwerken met de real time clock, PRINT S$T drukt de waarde 
van TIME af. 


TMOFF zet de klok op interrupt basis af. 


DTIME 
Zet de tijd op interrupt basis op het scherm of juist niet; afhankelijk of TIME 


geïnitialiseerd is of niet. 


IRB xxxxeyy 
Een commando dat men moet leren waarderen. Het wijst als IRD (Interrupt ReQuest) 
een stuk machinetaal aan met startadres “xxx, met als tijdsinterval tussen de 
interrupts de waarde yy (< 256). In principe moet de assembler routine aet RTS 
worden afgesloten. Let op TIME blijft doorlopen. 

Bijvoorbeeld: 

P=#2800; (;LDA#BBE2; EOR@A; STAÉBOOZ;RTS CRET2; de IRG-routine 

Vervolgens: IRQ#2898,199 <RETÒ 

oft 
TIME“G0-00: Dl 





zIRG#135C,1 CRET>, een 1 honderdste sec. timer. 


oer 
Zet de IRG-routine af, laat echter de klok op interrupt basis doorlopen. Tevens 
zet deze routine, nadat met EPRDM een box is geselecteerd (schakelsoft uit), het 
schakelsysteem weer aan. 


BLIP 

Zet de keyclics en de knipperende cursor aan en uit, autorepeat op de toetsen 
tevens blijft naar gelang FAST of SLOW geselecteerd is een van deze twee actief 
en voert de CTRL-functies uit zonder ERROR, Tijdelijke opslag van leesvectoren 
voor deze routine op #9FFB tot #9FFB. De bootstrap op #1C80 initlaliseert een 
aantal routines: het DOS indien aanwezig, de klok op interrupt basis indien aan, 
voert een eventueel aanwezige BASIC bootstrap (testbyte W7FFD) uit. Op #7FFD 
staat het paginanummer voor de bootstrap die uitgevoerd wordt na BREAK. Op #7FFC 
kan het testbyte voor een BASIC bootstrap, uit te voeren na REPT & BREAK, worden 
gezet. Deze laatste vorm meldt zich met ACORN ATOM CX-RESET, geeft een opgave 
van de in het geheugen aanwezige BASIC-programma's en haalt tevens van #9FFC de 
tekstpagina op waar u het laatst in werkte. 


De commando's DISAS, HDUMP, XDUMP en RELOCG zijn gebaseerd op de AXR1 en in alle 
boxen te gebruiken. 


TYD, DATE en DAY zijn de print statements voor de real time clock (Big Benny, AC 
2.4, bi.45) 





SEARCH * "(zie AN 3.5 p‚36) 
zoekt in het geheugen naar de opgegeven string. 
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Sinds kort zijn de STRING — functies in het systeem opgenomen. Lees voor STRING 
= handling het artikel van Frans le Blanc in DATACHECK 1985 nummer 3. 

De krachtige stringfunkties S$LEFT, SRIGHT, SMID en $STRING zijn volgens de 
Atom-BASIC syntax geschreven. Er wordt gebruikt gemaakt van de stringbuffer om 
ook strings tussen quotes te kunnen bewerken. Alle genoemde stringfunkties 
kunnen gebruikt worden daar waar ook de gewone strings gebruikt mogen worden: 
dus in vergelijkingen in IF en UNTIL-statements: 

De syntax voor de verschillende funkties is als volgt: 

SLEFT ( <string>;<variabele> } 

SRIGHT ( <string>,{variabeled } 

SMID t <string>,<variabele>, (Cvariabele>) } 

SSTRING ( <string>,{variabele> } 





Het gebruik van de haakjes is strikt noodzakelijk. Bij S#MID is het mogelijk 
slechts 1 variabele op te geven. 

$LEFT geeft als resultaat een nieuwe string, welke de door variabele aangegeven 
meest linkse karakters van de originele string bvat. 

SRIGHT geeft een nieuwe string die de meest rechtse karakters van de originele 
string bevat. 

SMID Kan aangegeven worden met 1 of 2 variabelen: X en Y. Het resultaat ís een 
nieuwe string die begint op de X-de plaats in de oude string met een lengte van 
Y. Als Y weggelaten wordt, krijgt de nieuwe string de maximale lengte: dus tot 
en met het laatste karakter van de originele string. 

SSTRING geeft een vermenigvuldiging van de orinele string met het aantal dat 
door de variabele wordt voorgesteld. 


Stringconcatenation (optellen van strings). 

Bijvoorbeeld: 

stel $A="ACORN" en $B="ATOM" 

dan volgt uit $C=8A + "-" 4 SD _ SC="ACORN-ATOM" 
of: $A=8C + SLEFT(SD,2) + SSTRING("\",5) + “onzin” 

Er mag geen andere operator dan de ‘+° gebruikt kan worden. 





nieuwe errors zijn 

202 Stringbuffer full 

245 Illegal stringconcatenation 

204 Illegal stringmanipulation in $MID or SRIGHT 
andere voorkomende errors Kunnen zijns 

29 Unknown or missing function 

129 ‘{' expected 

174 Significant item missing 


CK-2,7 


USKEY x, "enn ” 

Geeft u 9 functietoetsen; dus met CTRL & 1 ect. 

Aan de hand van een paar voorbeelden wordt de werking van dit commando het best 
verduidelijkt. 

USKEY 1,“LINK#GEDS}" executeert ( doordat de geinverteerde teksthaak voor de 
afstuitende aanhalingstekens staat ) de string. 

USKEY 2,"LDAE" drukt deze string af in bijvoorbeeld een stuk te typen basic 
tekst. 


PAGE x 
PAGE #50 is 718=#30 
PAGE (?#xxxx) kan ook mits op dat adres een zinnige waarde ís neergezet. 


PSCREEN x ( zie AN 3.5 p.38 } 
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GSCREEN x { zie AN 3.5 p.3B } 





LIB 
Geeft een overzicht van de in het geheugen aanwezige basic programma's. REM en 
PROGRAM worden genegeerd, dus alleen zinnige tekst. 


PLAY, GRMOD, TKMOD en FIND zijn uit de AXRI, 


EIX \X,Y\ ( zie Atomix 

Is een nieuw printstatement., Tussen de \'s twee variabelen, met een som =< 9, 
die het aantal te printen cijfers voor en na de komma bepalen. In tabellen 
worden de komma's onder elkaar geprint. 


FLASH x,y,z { zie AN 5.1 p.95 } 
HEADER x ( zie AN 3,6 p.?8 ) 


EXECS ( zie AN 3.6 p.?é ) 


Maakt het mogelijk om bijvoorbeeld direct mode commando's ook vanuit een 
prograana te gebruiken. Ook kunnen variabelen en bewerkingen daarvan vannuit een 
string als een functie worden gebruikt, 

bijvoorbeeld het volgende programma: 


20 DIM A{6),B(3) ,C(7)z{=50 

29 $A="GOTO 90“j$B="X=5" 

38 INPUT"TOETS EEN VERGELIJKING IN“$C (bv, Y=JeXti } 
4D P.X'zEXECSBjP. Xx’ 

58 EXECSC;P.$C,Y” 

60 EXECSA 

70 END 

90 P.'“OVER — END — GESPRONGEN *' 


TP drukt op een regel de gekozen tekstspagina, TOP en DIMTOP af. 

SLOW en FAST regelen de output naar het scherm. 

LCASE 

In GRMOD kunt u nadat, dit commando is gegeven, onderkast (kleine, 
geinverteerde) letters typen 

CURSOR x,y 

Zet de cursor op positie x van lijn y gerekend vanaf @, de linker bovenkant van 


het scherm. 


DUMP dumpt de tekst van het schera naar de printer en voert PRINT $2 en PRINT $3 
uit. 


FILL #xxxx,ttyyyyotzz 

Vult het geheugen van de locatie xxxx tot yyyy met zz. 
FVAR drukt de floatingpoint variabelen af. 

FZERO maakt de floatingpoint variabelen gelijk aan nul, 
CLC maakt het scherm schoon tot aan de cursor. 


CLS voert PRINT $ 12 uit en laat de cursor, al naar gelang geselecteerd, aan of 
uit. 
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CON , COF zet de cursor respectievelijk aan of uit. 


CX-5.02 


Een voorlopige versie met een aantal grafische commando's, 


Het DATA-blok 


Op het blok #6800-#7FFF kan een CX-DATA gebeuren gemaakt worden dat naast een 
serie statements ook een basic=bootstrap bevat, alles naar eigen behoefte. Het 
aoet dus niet, het kan! Er zijn veel manieren om een datablok samen te stellen. 
Ze hangen af van de eisen die u er aan stelt. 
Bijvoorbeeld: 

= een blok vaor liefhebbers van het programmeren in assembler, 

(debug-programmatuur), symbolische-assembler} 

= een blok met VDU-grappen voor de VDU fanaten VDU 40,24 en tekenroutines) 

= een blok met zendamateur programma's 

= een blok voor hen die van twee walletjes willen eten, 


Een mogelijke uitvoering van een datablok is hierna beschreven, 
Op #6803 staat bij voorbeeld de basic boot up voor BREAK. 
(testbyte op #7FFD) 


0 FAST;PAGE(?#9FFC) ; TP; ?#3FC=#bBj BE, 19,83E. 


Bij BREAK dus terug in de fast-output-mode, met behoud van de tekstpagina waarin 
u werkte en met P-CHARME uitbreidingen geïnitialiseerd, 

Op #5A89 kan een basic boot up voor REPT & BREAK worden geplaatst, (testbyte op 
#7EFC 

Een dergelijk programma kan er zo uitzien, 


18 REM BODT 

20 BE‚12,93BE. 9,12 

30 US,1,"#.B}" 

48 US, 2," IRG#GB48, 1503" 

56 CDF;P,'4DAYzP." "3DATAGP." "3TYD'" 
68 FA, ;BL. $CON 

70 PAGE(?#9FFD) JE. 


Regel 30 maakt het mogelijk met USKEY 1 een driekoloms catalog van de schijf die 
in de drive zit op het scherm te zetten, 

Regel 49 maakt het mogelijk, met USKEY 2 onder interrupt, de STATUS regel op het 
scherm te zetten. 

Met regel 58 wordt de real time clock gepresenteerd. 

Let op; pas het statement PROGRAM met beleid toe in deze basic bootstrapjes. 
Dit statement ‘vult’ van #28BD tot #2900 het geheugen met nullen. U kunt zich 
indenken wat een REPT/BREAK teweeg brengt in een zojuist gereed gekomen 
textfile. 


KET KLADBLOK 

Enkete notities over het gebruik van het kladblok, 

Het geheugen gebied van #9908 tot #9FFF wordt door het CX-systeem als kladblok 
gebruikt. In een latere versie zal dit beperkt worden van #9E2S tot #9FFF. 

USKEY gebruikt #9908 tot #99FF voor het opslaan van de strings. Een versie van 
Cx-2 waarin de strings vanaf #9EG@ worden opgeslagen is in voorbereiding. 

De timer op interrupt (TIME) gebruikt #9F78 tot #9F7Á voor het opslaan van de 
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string $T … 

#9F7E is het testbyte voor TIME aan/uit, 

Van #9F7B tot #9F80 wordt gebruikt door respectievelijk IRG en TIME. 

Page gebruikt #9FFC om de tekstpagina te bewaren, 

Het schakelbyte wordt op #9FFF bewaard. 

De BLIP routine gebruikt de adressen #9FFB tot #9FFB en #9FFD met #9FFE als 
tijdelijke opslag van vectoren. 

Door GRMOD wordt #9FF7 gebruikt als tussen sprongadres. 

Op #9FF2 wordt het boxnummer van de diskbox bewaard. 


Geheugen-map voor #9Fxx e.v. 


HOEF schakelbyte 

#IFFE BLIP writevec 

#9FFD hi 

HFC PAGE nr, (BREAK) 

#IFFB BLIP saveadres 

#9FFA hl 

AIFF hi 

#arFa hd 

HFT sprongadres FAST 

#EFG vrij 

#9FFS ii 

BIFFF 4 hl 

woFFS hi 

KIFF2 boxnr. diskbox 

IFF 1 CLI vec.diskbox 

#erFe hl 

#IFFO tot #9FES vrij 

#9FES tot #9FEB diskbox terugspring routine 
#9FEG tot #9FDB vrij 

#IFDB tot #9FAG CLI hulproutine bij gebruik van statement DISK 
#9FAB tot #9F7B back-up voor cx-schakelsysteem 
#9FID tot #9FBL vrij 

#9FEB tot #9F70 IRG en TIME vect. en ST 
#9F70 tot #9FD0 vrij 

#9FOO tot #IEDG USKEY strings cx-2,8 
Overzicht van plaatsvervangende write- en readvectoren, 
routine ® 208 209 20A 208 

standaard ATOM 52 FE 94 FE 

LCASE A9 11 78 11 

GRMODE BA it 70 11 

FAST AB 1 7C 11 

SLOW 59 14 7C LD 


Ik hoop dat u een indruk hebt gekregen van de mogelijkheden van het CX-systeen. 
We claimen niet over het ei van Columbus te beschikken; maar we hebben er bijna 
dagelijks plezier van; wellicht u ook, 


Noot van de redaktie: 
Op de regio schijf is onder de naam CX-info een text-file opgenonen met 


uitgebreidere informatie over het CX systeem. 
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THE LOWEST COST ATam MODEM 





In Acorn Nieuws & ira.3 wordt een telefoonmoden beschreven 
voor sebryik met het Atom cassette operating system. Dit modem 
had volgens mid het srote bezwaar dat er een salvanische 
verbindins tot stand Wördt sebracht tussen de Atom en het PPT 
net. Metinsen daor mij sedaan hebben aansetaord dat er op dat 
PTT net nosal hoee spanningen kunnen Vvaorkomen (75 Vatt !!) en 
het dus niet denkbeeldie is dat de Atom vernield werdt door 


zen spanninsspiek. 


Om mnu &l dereelijke problemen te voorkomen ben ik bezig 
sesaan een lijntranstformatar op te nemen tussen de Atom en het 
telefoonnet. Het resuttaat van dat zoeken Was een al met al 
tach vrij complexe schakeline: maar in een soort onderlinge 
campetitie van wie de vertansde functie kon vealiseren met de 
minste campomenten tussen Maarten van Alphen en Mij is er 
uiteindelijk onderstaande schakeling uitsekomen. Hierin zit 
valeans mij dan Gak seen component teveel. 


Ik zal nuu trachten het schema uit te lessen. 
Het valt uiteen in twee delen te weten een deel wat er vaar 
zarst dat er n gelijkstroom blijft topen zodat de centrale 
denkt dat er nous Steeds een toestel op de lijn zit en een 
gedeelte dat de feitelijke datatransmissie verzorat. 





Het deel vaar de lijn nabeetsine Wardt sevormd daor de 
bruscel, de twee transistoren en de biibehorende componenten 
linksonder in het schema. Dit deel zou nos wesselaten kunnen 
worden oak als men tevreden is met de sitvatie dat er tijdens 
de overdracht van de data altijd een toestel met hoar aan het 
made paraltet blijft zitten, Dit laatste heeft zowel voor als 
een voordeel is dat men Kan horen wat er over de lijn 











nadelen 
saat en of het misschien al afsetopen is: een nadeel is dat het 
minste of serinsste omsevinssseluid via de microfoon de 


verbindins kan verstoren. Het omschakelen tussen het toestel of 
het medem gaat met het wisselschakelaartje TST/MODEM. 


Het tweede deel van de schaketins dat zorst vaar de 
overdracht van de flvittoontjes werdt sevarmd daar de 
lijntransformatar (FANDY nr. 2725-1575) en de dubbele OPAMP, Van 
deze OPAMP doet het bovenste deel dienst als buffer versterker 
de ATOM aan te passen ap de 600 Ohm lijn impedantie en zarst 
de anderste helft va het versterk van het binnen gekomen 
5 Dit sisnaa ig eerst via een oassief bandfilter 
gevoerd cmt de atterersste troep van de iijn wee te haten vaar 
de versterker in Saat. H schakelaartje TX/RX was 
sGdzakel ijk omdat de ATOM zijn mand (scassette uitsans) niet 
houdt als hij geacht wordt te Luisteren. Dus bij ontvanast var 
schakelaar sesleten worden. 


am 













data moet de 


Het aansluiten van het mi ar het PTT net sebeurd daar de 
vade en blauws draad in het aanstvitsnoer van het toestel te 
Cnderbreken zoals links in het schema Staat aangegeven. De ATOM 
aansiuitins rechts Saat sewaon maar de normale casetterecarder 


in=/{uitsans van de ATO 
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De totate beouwkesten van dit medem Cdus inciusief kastjes 
Schakelaars: PTT aanstuitmateriaal en alle componenten list 
onder de f50:-. Voor deze Prijs heeft u dan een betrouwbaar 390 
Baud Mode. 1200 Baud saat zo af en toe cok wets maar dat is 
niet ze ers betrouwbaar. Voor de opbouw kan het beste sebruik 
gemaakt warden van gaatjes” of Veroboard want een paneel 
lay-aut heb ik er niet van sehaakt. 





Veel succes met de nabouw en laat eens iets van J&eue-ses 


we, LM358 













TOESTEL : 
LE o& 
nz ) TX/RK 
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M 9, 
17 JS 2 7 => 
T Ct 4 MLm3se 
Le 474 
btw [oon Tak 
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PRINTERS 
We kunnen de printers verdelen in de volgende hoofdgroepen: 


Matrixprinters 
Margrietwiel printers 
Inktjet printers 
Bijzondere typen 
Schrijfmachine als printer. 


ld 


De Matrixprinter 


De matrix printer, of voluit dot-matrix printer ontleent zijn naam aan het feit 
dat de letter bestaat uit kleine puntjes (dots) welke in een matrix gegroepeerd 
zijn, (Een matrix wil zeggen rijen in Xen Y richting). In werkelijkheid wordt 
de letter opgebouwd uit een aantal kolommen van puntjes, De printkop van een 
matrix printer bevat een aantal (7 — 9) onder elkaar liggende pennen. 







printspoelen 


printkop 


printnaalden 
a} 


Eike pen is aan het eind verbonden met een spoel. Door de spoel te bekrachtigen 
kan bereikt worden dat een printpen naar voren kont, en middels het inktlint een 
afdruk op papier maakt, Dit wordt voor alle pennen in een keer gedaan, Hierna 
verplaatst de printkop zich en wordt de tweede kolom puntjes gezet. Dit wordt 
net zo lang gedaan tot de letter compleet is. De vorm van de letter ligt meestal 
vast in Eprom. Bij een 9 # 9 matrix heeft men nog een truukje uitgehaald. Om 
alle pennen aan te sturen zouden er immers 9 bits data nodig zijn, terwijl de 
eprom maar 8 bits breed is. Dit heeft men als volgt opgelost. De eigenlijke vorm 
van de letter ligt vast in 7 bits data, De twee onderste pennen van de printkop 
worden alleen gebruikt als een letter onder de "lijn" moet uitkomen (zoals bij 
de qg). Bit 7 dient nu als "Descender" bit. Als dit bit 1 is, wordt de gehele 
letter 2 puntjes naar beneden geprint. Normaal gebruikt men dus alleen de pennen 
1 t/m 7, en bij de descender gebruikt men alleen de pennen 3 t/m 9, Een printer 
met een 7 * 7 matrix mist deze mogelijkheid meestal, en hierbij zal de letter g 
dan oak niet onder de lijn uitkomen. 


Een matrix printer kent meestal verschillende lettertypen. Vaak zijn een of 
meerdere van de volgende typen voorhanden: 
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# Normaal (b.v. 88 karakters/regel) 
* Condensed (b.v. 132 karakters/regel) 
* Elite (b.v. 90 karakters per regel) 


De typen worden geaaakt, door de afstand tussen twee kolommen puntjes te 
varieren. Andere typen kunnen zijns 


#* Double strike (elk puntje wordt 2 x geprint) 
* Emphasised (idem, doch 1/2 puntje verschoven) 
« Enlarged (idem, doch 1 puntje verschoven) 


Veel typen hebben een zgn bit-image mode, Hiermee kunt u de printpennen direct 
aansturen. De data die u naar de printer verstuurt wordt direct overgezet op de 
printkop, Dit kunt u onder andere gebruiken om graphics uit te printen. U zou 
het schera uit Kunnen lezen, en deze data naar de printer sturen, Op deze manier 
verkrijgt u een hardcopy van uw graphics tekening. 


Het inktlint van de printer zal op den duur uitgedroogd zijn. Mensen die een 
dure linkcassette nodig hebben gaan er soms toe over om het lint opnieun te 
inkten. Op zicht is dit geen probleem, doch doe het dan niet met stempelinkt. De 
inkt in het lint zorgt namelijk ook voor de smering van de printkop. We hebben 
oliehoudende inkt nodig, bíjvoorbeeld nummeroteur-inkt. 


De Margietwielprinter 


De aargrietwielprinter, ook wel daisywheel of diablo printer genoemd, werkt 
volgens het slaghamer principe. Het wiel bestaat uit metalen letters, net als 
bij een conventionele typemachine, Alleen zijn ze in een circel gegroepeerd, 
Door het wiel te draaien komt een andere letter voor. Omschakeling naar andere 
lettertypen kan geschieden door omwisseling van het margrietwiel. Sinds kort 
zijn er ook typen met graphische mogelijkheden, Dit gebeurt door puntje voor 
puntje uit te printen. Uiteraard gaat dit vrij langzaam, De margietwieïprinter 
behoort meestal niet tot de goedkoopste soorten printers. 


De Inktjet 


De inktjet printer behoort tot de zgn ron-impact printers. Hierbij is er geen 
mechanisch kontakt tussen de printkop en het papier. De inkt wordt middels een 
dun straaltje op het papier gespoten. Er bestaan ook typen waarbij de inkt en 
het papier een tegengestelde elektrische lading krijgen, zodat de inkt door het 
papier wordt aangetrokken, De letter wordt weer in een puntenmatrix opgebouwd, 
In vergelijking tot de eerder genoemde typen, is het bij de inktjet vrij 
eenvoudig om met meerdere kleuren inkt te werken. 


De bijzondere types 


De types díe hieronder vallen behoren meestal thuis in de professionele sfeer. 
Hieronder valt onder andere de laser-jet. De letter wordt hierbij gemaakt met 
behulp van een laserstraal. Twee belangrijke voordelen zijn de geruisloosheid en 
de hoge printsnelheid (vanaf 400 karakters/seconde tot meer als een velletje A4 
per seconde voor topmodellen). Een tweede type is de zgn regeldrukker. Hierbij 
is geen printkop aanwezig die langs het papier heen en weer gaat. De gehele 
regel wordt in een keer afgedrukt. Dit kan bijvoorbeeld gebeuren door een groot 
aantal dot-matrix pennen, of door een letter trommel. 
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Een alternatief voor geen printer is het gebruik van een electronische 
typemachine, voorzien van een interface. Het grote voordeel is dat men nog 
steeds een goede letterkwaliteit heeft, Er is echter ook een gevaar aan 
verbonden. Bij gebruik als printer loopt de machine vaak gedurende langere tijd 
op volle snelheid. Niet ieder type typemachine is hiertegen bestand. Op den duur 
kan dít problemen gaan opleveren. Een nadeel is dan het hex teken (#) vaak als 
een pondteken weergegeven wordt. 


De communicatie 


Uiteraard moet het mogelijk zijn data naar de printer te sturen. Dit kan 
parallel of serieeel gebeuren. Voor parallel wordt meestal de 
centronix-standaard aangehouden. Ook de atom heeft een centronix aansluiting. In 
deze standaard is het type connector met alle aansluitingen vastgelegd. De 
verbinding wordt meestal gemaakt dem.v. een flatcable. Hierin liggen dan de data 
en control-lijnen. Als controlsignalen zijn onder meer indicaties aanwezig voor 
het "ready" zijn van de printer, een out-of-paper indicatie e.d. De huidige atom 
printeraansluiting maakt hiervan echter geen gebruik. Een nadeel van de 
paralelle verbinding is dat de lengte van de kabel aan een maximum gebonden is. 
(Bovendien worden lange flatcables veel te duur). Een tweede mogelijkheid is 
serieeel. Dit kan zowel synchroon als asynchroon geschieden. Telexen, en uw 
cassette imterface werken volgens het asynchrone principe. Hierbij werkt men met 
start- en stop bits om er voor te zorgen dat de data goed overkomt. Er is echter 
geen enkele controle of de ontvanger wel "luistert". Het voordeel is dat men 
slechts Z lijnen nodig heeft. Printers welke direct aan een computer gekoppeld 
zijn werken meestal met een 4-draads verbinding, Hierbij zijn er naast de twee 
data-lijnen ook nog twee control lijnen aanwezig, Een waarmee de computer kan 
vragen of de printer gereed is, en een waarmee de printer kan antwoorden. Op 
deze manier wordt voorkomen dat er data verzonden wordt, die niet aan de andere 
kant aankomt, Dit principe noemt men wel handshaking. 


id |z |2 | 4 | 5 verpl. printhoofd 


] ri mn spoelbekrachtigingscommando 





. e spoel 1 

. . 2 
. . . . . 3 
. . 4 
. . 5 
. . 6 
. , 7 


b/ 
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SCHAKELEN ZONDER SCHAIELKAART 
(voor de &4K-kaart), 


Veel mensen die een b4K-kaart hebben gebruiken hiervan in de pratijk maar 1 bank 

van 52K. De andere bank wordt zelden gebruikt, Mijn idee is het volgende: Zet ín 

die niet gebruikte bank een aatat toolkits zoals P-charme, Wordpack, Gagsrom en 

kopieer die als dat nodig is naar #AXXX (waar u dus RAM moet hebben). De hier 

gebruikte routine doet dat (net als de schakelkaart) automatisch bij ERROR 94, 

Statements kunnen dus door elkaar gebruikt worden, maar aangezien bij elke 

omschakeling &K gekopieerd moet worden, wordt een programma hierdoor wel veel 

trager. Om het onderstaande programma te kunnen gebruiken is het volgende nodig: 

— bâK-kaart 

= bankswitching via bit 5 van poort B802 (evt wijzigen) 

= RAM op AXXX 

= RAM buiten de 64K-kaart (hier van #400 — #800, maar door aanpassen van G in 
het programma kan dit ook het gestapelde grafische geheugen zijn). 

N.B, Een gewijzigde FP-ROM is NIET nodig ! 

Het is wel nodig een kleine wijziging in de gebruikte boxen aan te brengen, maar 

daar deze boxen toch in RAM geladen moeten worden is dat niet zo'n probleem. 

Deze wijziging heeft echter wel tot gevolg dat de statenent-zoek-routines niet 

goed meer werken, De zoekroutines zijn daarom (gedeeltelijk) in het programma 

opgenomen. Hierdoor ligt de plaats van de boxen in het geheugen vast en is het 

progranma langer geworden dan ík dacht (@.5 K in geasseableerde vorm). 

Ik heb de volgende boxen in bank 2 geplaatst: 

Jasbox #4000 — #4FFF 

Gagsrom #5008 — #SFFF 

ED64 #5000 — HOFFF 

P=-charne #7080 — #7FFF 


Nadat deze geladen zijn wordt op #4002, #5002 enz. JMP Q+420 gezet. Bij mij is 
G=#400 dus zet ík er neer JMP #420, Ik heb deze 4 boxen als een blok op de 
schijf gezet met: 

*5. BOXES 4009 8000 

Als het onderstaande programma gerund wordt moet BOXES al in bank 2 staan en op 
AXXX moet P-charme geladen zijn. Als het programma gerund is, werkt de 
schakelroutine direkt, Ook na BREAK blijft de routine actief. Denk hierom als er 
bij het assenbleren iets fout ís gegaan. 


Werking van het programma 

Kont de interpreter het A-blok binnen dan wordt naar de routine op #420 
gesprongen waar de breakvector goed gezet wordt. Daarna wordt naar de utility 
gesprongen die op dat moment in het A-blok staat. Wordt het statement niet 
herkend (ERROR 98) dan worden ale boxen {te beginnen net P-charne) 
achtereenvolgens naar AXXX gekopierd en doorlopen totdat het statement herkend 
wordt, zoniet dan wordt alsnog ERROR 94 gegeven als P-charme weer bereikt wordt. 
Het inschakelen van een andere box vindt alleen plaats als er een ERROR 94 
optreedt. Programma's geschreven voor 1 box starten dus met een kleine 
vertraging, waarna ze verder op de normale snelheid worden uitgevoerd. 


N.B, Als alle boxen afgezocht moeten worden geeft dit een vertraging van 8,25 
tot 8,5 seconden. 

P‚S, Mensen met een 16K-kaart kunnen dit programma ook gebruiken. Zet BOXES ín 
de 1&K-kaart en verwijder regeì 878 en 930. Verder gaat alles zoals beschreven. 
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1GREM SCHAKELSOFT VERSIE BD 23-35-85 
20REM VOOR &4K-KAART 

SOREN MARIEN VAN WESTEN 

AOREN LANDSTEINERHOF 58 

SOREN HOOGEVEEN 

GAREN TEL, 05288-74417 

TOREM NAAR DUKE URBANIK 

BOREN ACORN NIEUWS 85-1 

GORE “BOXES MOET IN BANK 2 STAAN 11! 
10OREM EN P-CHARME OP AXXX 

110 

120REM G IS HET STARTADRES (BUITEN DE &4K-KAART 1) 
1500=#400 

140Z=0+3; REM NR INGESCHAKELDE BOX 
1505=Q+4; REM SCHAKELBYTE 

140 

17BV=7;REM P-CHARME VAN #7090 TDT #8002 
188 

190DIM BB25,RR40;P. $21 

200F. 1=0T025} BBI=0;N. 1 

210F. 1=8T040; RRI=O;N. 1 

220B87=0 

230F, I=1T02;P=0+#20 

240t 

Z5O\ENTRY VANAF #4002 
260\SHIFT-RETURN INGEDRUKT? 
270BIT#BOO1; BMIEB4 

280LDAEVJAND S;STA 5 

298:BB4 LDA S;BIT S;BVSBB2 

300:BB5 CMPEV;BNE BB12 

310\ INIT P-CHARME 

320:BB11 LDA@D;STARZEE;LDAGRBI; STA#3FB 
33OLDAQBB7/ 256; STARIEF 

3ABLDAEV; JSR RROGSTA 5 
35BLDAGHAB; STAH203; LDAEHDS; STA#202 
ZEBIMPRR6 \ENTER P-CHARKE 

S7O\BEEN P-CHARME 

380:BB12 PHA;LDAGBB13KHFF; STAR202 

390 LDAEBB13/256; STA8205; PLA; BNEBB2 
4QO\ERROR IN NIET P-CHARME BOX 
818:BB13 PLA;PLA; STA#G; CMP@RSE; BEGBBI 1 
420 JMP#C55B 

430:BB15 \ERROR VANUIT P-CHARME 
44BPLA; PLA; STARG 

45OCHPERSE; BEQBB14; JMPHACAF 

460:BB2 JSR RRO 
A7OLDAHAGOI ; CMPEHEF ; BNEBB& 

4BUJMP RR6 \SPRING NAAR JUISTE BOX 
49Q\ SCHAKELEN MAAR! ERROR 94 

500:BB14 \SAVE #90-#9F 

StaLDxeRor 

520:BB10 LDA#?O,X;STAQ+HID, X; DEX; CPXEHFF; BNEBB1G 
530:BB5 \START POOT-50S 
SAOLDAGBBOKHFF; STA#202 
550LDAEBBO/ 256; STA#203 

S6OLDAERDI; STA 5 

570:BB1 LDX@RFF; TXS 
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SEGINC S;LDA 5 

SIBCMPEV; BCCBB2 

608: BB? 

618\ NIETS GEVONDEN 

628\ RELOAD #90-#9F 

6SOLDXEROF 

640: BB8 LDAG+#1B,X; STARIB, X; DEX; CPXEHFF ; BNEBBG 
&SOLDAQV; JSR RRA 

G&OLDAERAC; STARZOT; LDAEHAF ; STAR282 

670 JMP&C5SB 

&80\ FOUT AFVANGEN 

690: BBOPLA; PLA; STA#D 

7OGCMPERSE; BEGBBt \SCHAKELEN 

718 BNE BB? 

7201 BB6JMP#CS58 

730\ ZET INDIEN NODIG DE AANGEGEVEN BOX OP AXXX 

740: RRA PHA;CMP Z;BEGRR4; PHA 

750\WIJST VECTOR NAAR HUIDIGE ROX 7 

7&Ö\DAN ERROR 1 

770 LDX@#17 

780:RRB LDA#206,X3 ANDE#FO; CMPE#AB; BNERRS 

798 LDA@SL; PHA; PHA; JMP4C9DE 

880: RRI DEX DEX; BPLRRS 

BIB\ZET ADRESSEN VOOR KOPIEREN GOED 

B28:RRI PLA;STA Z 

B58 ASLA;ASLAsASLA; ASLA; STARR2+2 

848 LDA@0;STA RR2+1;STA RR2+4 

858 LDAERAQ;STA RR2+5 

B6B\SCHAKEL OM NAAR BANK 2 

878 LDA#BOO2; ORAEHE; STARBOLZ 

BSB \KOPIEREN 

BIO:RRI LDYEO 

PEB:RR2 LDA #1000,Y; STAKADDD, Y; INY; BNERR2 
GIQINCRR2#2; INCRR2+5; LDARR2+S ; CMPEHBO; BNERRI 
928\SCHAKEL TERUG NAAR BANK 1 

930 LDA#BOA2; ANDE#F7; STA#BOO2 

940:RRA PLA;RTS \EINDE ROUTINE 

F5D\SPRING NAAR GEWENSTE BOX 

G6D\IVM WIJZIGINGEN EN TERUGSPRINGEN NAAR #4004 
S7O\MGET EERSTE GEDEELTE VAN DE BOX HIER 
FBO\GEKOPIEERD ZIJN 

990\N.B. HIERDOOR LIGT DE VOLGORDE VAN DE BOXEN VAST 
1Q8E: RRA LDAERR7/256;STARRS+Z; LDA 73 ASLAs ASLA; CLC 
1818 ADC @RR7/256; STA RRS+1; BCCRRS 

1828 INC RRS+2 
1830:RRS JMP RR7 
184D:RR7 JMP RRIG;NOP \ BOX B 
1058 JMP RRII;NOP \ BOX t 
1858 JMP RRI2;NOP \ BOX 2 
1878 JMP RRIS;NOP \ BOX 5 
1488 JMP RRI4;NDP \ BOX 4 
1090 JMP RRiS;NOP \ BOX 5 
1100 JMP RRI6;NDP \ BOX b 
S118 JMP RRI7;NOP \ BOX 7 
1129\ BOX 4  JUSBOX 
11303RRIA LDX ERFF 
1140: RR2G LOYHSE;DEY 
115B:RR2E INXsINY 


ACORN NIEUWS 


PAB. 


89 


PAG, 7B ALCURN NIEUWS SCHAKELEN ZONDER SCHAKELKAART M.V. 





1160:RR22 LDAHADS2,Xj BMIRRZ4S CMP (#05) „Yi BEORRZI; DEX 
1170: RRZ3 INXsLDAKADSZ, Xs BPLRR23} INK; LDA (HOS) ‚Y 
1180 CHP@#ZE; BNERR20; INY; DEX; BCSRR22 


1190:RR24 JMPRAD24 


1200\ BOX 5 GAGSROM 


1210:RRI5 LDXE#ZO 


1220:RR25 LDY#SE;DEY 


1230:RR26 DEX; INY 


1240: RR27 LDAGAFDO, Xs BMIRR29; CMP (#05) , Ys BEORRZ6; INK 
1250:RR28 DEX;LDAHAFDO, X; BPLRR28; DEX; LDA (HDS) ,Y 
1260 CMPA#ZE; BNERR25; INY; INX; BCSRR27 


1270:RR29 JMPHAB24 


1258\ BOX 6 ED64 
1290:RRI6 LDXERAO 


1380:RRID LDY#OS;DEY 

131GERRIL INY;LDA(#OS) „Ys CMPE#20; BEORRSL 
1320:RRS2 LDAKAQO7B,X; BMIRR34; CMP (805) ,Y 
1538 BNERRSSs INK; INY; BNERR32 

1340:RRIJ CPXERG4; BCSRRIS; LDXEHDS; BNERRSO 


135 





RS4 JMP#A023 
1368:RRI5 JMP#A078 


1570\ BOX 7 P-CHARME 
1380:RR17 JSRHAGOF; JMPHABDS 


1390 


1408 REM INDIRECTE JUMP VANUIT P-CHARME 
1418P=BB7;[;JMPBBIS; 3 


1428 N.I;P,$6 


1450075=7;D?4=7; 7#ADO2=#4C 
14407RABEI=H20; /HADBATO/ 256 


1ASOEND 


ATONM-WWARE DEEL 5 
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SUPER-PRINT 


Superprint is een programma voor zelf-definieerbare karakters op een printer, De 
lettervorm en grootte zijn zelf in te stellen. De letters worden grafisch op he 
papier geprint. De programma's zijn gemaakt voor een ITTS551, doch ín principe 
moet het kunnen draaien op elke printer met de volgende mogelijkheden: 

Commando Werking 


ESC K Single denity bit image mode 
ESC L Dual density bit imag mode 
ESC A n Set line feed n/72 inch 
ESC 2 Normal line feed 


Voor zover bekend vallen in ieder geval alle Epson en Star printers daaronder. 
Het programma-pakket bestaat uit de volgende programma's: 


Programs: SPRPRNT (= SUPERPRINT) 
CHARCOD (= CHARACTERCODE GENERATOR) 
SUPERPR 

Datafile: ACORN 


SPRPRNT zorgt voor assemblage v‚h, machinetaaldeel. Programma wordt vanaf #2B00 
geassembieerd. Voor de diverse karaktergroottes hoeft aan het machinetaaldeel 
niets gewijzigt te worden, 

Controlcodes: 

= $2 = inschakeling printer, normale lettertype. 

= $3 = uitschakeling printer bij gebruik van normale lettertype. 

= $4 = inschakeling printer & inschakeling superprint. $4 moet aan het begin 
v.d, regel staan. 

uitschakelen superprint. Was de printer voor gebruik van $4 al met $2 
ingeschakeld dan wordt er verder geprint met normale karakters tot er 

$3 ontvangen wordt. 

Met superprint wordt altijd de gehele regel ín de gedefinieerde karakters 
uitgeprint. De laatste regel voor superprint moet de $5 code bevatten. 
Voorbeelden: 

= PRINT$2"test""$4"test"$5' "test" "$5 

— PRINT$4$5"Dit is een test van superprint"’ 


- $5 


CHARCDD. Hiermee wordt een karaktertabel gemaakt voor het programma SUPERPRINT. 
De tabel bevat informatie omtrent het aantal karakters en de grootte van de 
karakters. De tabel kan als aparte file gesaved worden, Editen van een eerder 
gemaakte file is mogelijk. Volg de aanwijzingen ín het programma. Commando's 
voor cursor besturing tijdens de ontwerp-fase: 


- { = cursor diagonaal naar rechts-boven. 

= shift-/ = cursor diagonaal naar links-onder, 

- \ = cursor diagonaal naar links-boven. 

- shift-\ = cursor diagonaal naar rechts-onder, 

= A = cursor omhoog. 

- TL = cursor omlaag 

- > = cursor naar rechts, 

- < = cursor naar links. 

- 5 = set pixels, maak de volgende plaats waar de cursor komt wit 
tuiteindelijk punt op papier!), 

- C = clear pixels, als S nu wissen van punten, 

= N = no change ín pixels, Verplaatsen van cursor zonder wijzigingen. 

- U = quit, beeindigen van de edit-mode. 


SUPERPR. Dit een geassembleerde versie van SPRPRNT, samen met een datafile voor 
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een lettertype. - 
ACORN. Dit is een datafile waarmee met het bekende Acorn-syabool op papier kan 


krijgen. Men dient eerst SUPERPR binnen te laden, en daarna: #LOAD"ACORN" te 
geven. De acorn zit nu verborgen onder de letter A, dus P,$4$5"AAA"" zal 5 


Acorns geven. 


Macht Superprint niet werken op uw printer dan het volgende: De meeste printers 
lezen tijdens de graphische mode bit 7 ook binnen, Normaal is deze niet in de 
atom aangesloten. Indien u bit 7 niet aangesloten heeft volgens de club (of 
andere) standaard, dient u deze aan massa te leggen. 


18 PROGRAM SPRPRNT (SUPERPRINT) 418 LDA @PP14256 
28 REM AW-SOFT 1984 VO.4 420 STA #208 
30 REM SOURCE-LISTING VOOR HET 450 LDA €8 
48 REM PRINTEN VAN DIVERSE 440 STA Z 

50 REM LETTERTYPEN MET DE ITTS351 450 STA 145 
68 460 RTS 

70 DIM PP34 470:PP1 

BĲ FOR N=8 TO 54 480 PHP 

98 PPN=300 490 CMP @10 
108 NEXT N 500 BEG PP2 
118 Q=#2B00; REM ORIGIN 519 STX #E4 
120 B=#2390; REM LOCATIDN FOR BUFFER 528 LDX Z 
130 Z=888; REM ZERO PAGE 530 STA B‚X 
140 T=Q 548 INC Z 
158 P‚$21 550 LDX #E4 
168 GOS,p 560: PP2 

174 P_$6 570 JSR #FES5 
188 T=P S80 CMP @13 
198 GOS.p 590 BNE PPS 
209 PRINT'''"END AT #"&T°' 680 JSR PPS 
218 END 618 LDX @8 
220 628 STX 2 
230pP=Q 630 LDX #E4 
240 U=T+1 640: PPS 

250 V=T+2 650 PLP 

240 W=T+3 66B:PP4 

270 S=1+4 670 RTS 

280 C=T+5 488: PP5 

290 690 STX HE4 
sag \ T: # OF CHAR IN CHARSET 708 BIT 2+5 
318 \ U: # OF WORDS/CHAR IN X DIR. 718 BVS PP14 
320 \ Vz # OF WORDS/CHAR IN Y DIR. 728 LDA B 
538 \ BIT 7: O=NORMAL DENS,, f=DUAL DENS. 738 CMP @4 
540 \ Wz CODE FOR FIRST PRINTABLE CHAR 740 BEG PP11 
550 \ S: # OF SPACEBYTES 750 LDX €80 
368 \ C: FERST BYTE OF CHARCODE TABLE 760: PP6 

378 \ B: PRINTER BUFFER 770 LDA B‚X 
380: PPO 780 JSR #FEFB 
390 LDA @PP1/256 798 CMP a13 
408 STA #209 820 BEG PP4 


818 INX 
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628 BNE PP& 
630: PP7 

B48 PHA 

858 CMP @2 
854 BNE PPS 
A78 LDA Z+5 
882 DRA €499 
898 BNE PPS 
„48: PPS 

910 CMP E35 
920 BNE PP18 
938 LDA 245 
948 AND €#7F 
95: PPI 

J&B STA 245 
970:PP10 
988 PLA 

990 RTS 
1828: PP11 
1818 LDX T 
1824 BNE PP1S 
1930: PP12 
1840 RTS 
1058: PP13 
1968 LDA €2 
1878 JSR #FEFB 
1388 LDA 245 
1995 DRA €#48 
1108 STA 2+5 
1110:PP14 
1120 LDX @2 
1158:PP1S 
1140 LDA PP3S,X 
1159 JSR #FFIO 
1168 DEX 

1178 BPL PP1S 
1188 STY #ES 
1198 INX 

1208 STX Z 
1218 LDA €C{256 
1228 STA 243 
1238 LDA @C/256 
1248 STA Z+4 
1258: PP16 
1268 LDX @0 
1270: PP17 
1288 LDA 2+3 
1298 STA Z+1 
1509 LDA 2+4 
1318 STA 2+2 
1328 LDA €90 
13530 STA 2+7 
1348 LDA U 
4358 STA Z+6 
1368 LDA B,‚X 
1578 JSR PP7 
15388 CMP @15 
1598 BEG PP26 


1480 CMP 65 
1418 BNE PP19 
1428 LDA Z45 
1430 AND @#BF 
1440 STA 145 
1450: PP18 
1468 INX 

1478 BNE PP17 
1450: PP19 
1490 SEC 

1529 SBC W 
1518 BCC PP18 
1520 CMP T 
1552 BCS PP18 
1548: PP206 
1556 LSR A 
1548 PHA 

1578 BCC PP21 
1588 CLE 

1598 LDA Z+1 
1608 ADC Z+6 
1618 STA Z+1 
1620 LDA Z+2 
16539 ADC 247 
1648 STA Z+2 
1650: PP24 
1668 PLA 

1679 BEG PP22 
1680 ASL Z+6 
1698 ROL 1+7 
1788 BCC PP28 
1718:PP22 
1720 LDA €27 ESC 
1750 JSR #FF1O 


1740 LDY @#4B K (SINGLE DENSITY) 


1758 BIT V 
1768 BPL PP23 


1778 INY L (DUAL DENSITY) 


1788: PP23 

1798 TYA 

1899 JSR #FFIG 
1818 CLC 

1828 LDA U 
1838 ADC S 
1840 JSR #FF1A 
1859 LDA €0 ” 
1850 LDY 5 
1878: PP24 

1888 JSR #FFLO 
1898 DEY 

1900 BPL PP24 
1918 INY 

1920: PP25 

1930 LDA (Z+1),V 
1940 JSR #FFIG 
1958 INY 

1958 CPY U 
1978 BCC PP25 
1988 INX 
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1998 JMP PPL7 
2098: PP26 

2018 INC Z 
2028 LDA V 
2030 AND €#7F 
2048 CMP Z 
2050 BEG PPSO 
2048 LDA €13 
2078 JSR #FF1G 
2888 CLC 

2098 LDA €4 
2188 STA 247 
2118 LDA U 
2128 STA +6 
2150 LDA T 
2148: PP27 
2150 LSR A 
2168 PRA 

2178 BCC PP28 
2188 CLC 

2198 LDA 245 
2208 ADC Z+6 
2219 STA Z+5 
2220 LDA 244 
2238 ADC 247 
2240 STA Z+4 
2250: PP28 
2268 PLA 

2270 BNE PP29 
2280 JMP PP16 
2270: PP29 
2308 ASL Z+6 
2318 ROL Z+7 
2328 BCC PP27 
2338: PP3O 
2340 LDX 82 
25508: PPS1 
2368 LDA PP34,X 
2378 JSR #FFIO 
2580 DEX 

2390 BPL PPS1 
2400 LDY #ES 
2418 BIT 2+5 
2420 BVS PPS2 
2430 BMI PPS2 
2440 LDA 83 
2450 JSR #FEFB 
2460: PP32 
2470 RTS 

2488: PP33 
24901 

2500 !P=#£B4107; 
2519 P=P+S 
2520 

2538: PPS54 
25403 

2558 !P=#1B5200; 
2560 P=P+3 
2578 RETURN 
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PROGRAM CHARCOD 

REM AW-S0FT 1984 V1.8 

REM PROGRAMMA VOOR HET MAKEN 
REM VAN KARAKTERS VOOR HET 
REM PROGRAMMA SUPERPRINT. 
REM CHARCOD VANAF #8829. 


PROG INVOER 

held 

HOOFD 

PRINT"SEE ASCII TABLE"" 
DO PRINT'"FIRST CHAR?" 
INKEY C 

UNTIL C>31 
PRINT" "an, SC vent 

DO PRINT'"LAST CHAR 7" 
INKEY D 

UNTIL D>=C 
PRINT“ Yer, SD, teen” 
INPUT'"# OF PIXELS IN X DIR, ®X 


"ey DIRECTION DIVIDED IN GROUPS" 
F 7 PIXELS" 

INPUT"# OF PIXELS IN Y DIR, = 7#"Y 
UNTILY>0 

E=P+(D=C+1) &X4Y+5 

PRINT''"END OF CHARCOD TABLE AT ",&E' 
PRINT“CONTINUE ? (Y/N)" 

INKEY A 

PRINT $A’ 

UNTIL A=CH"Yy" 

INPUT"# OF PIXELS FOR SPACE BETWEEN" 
INPUT"THE CHAR, "5 

PRINT*DUAL DENSITY (Y/N)2" 

INKEY A 

PRINT $A° 

IF A=CH"Y" THEN Y=Y+128 

2peD-C+1 

P?t=X 

P?zeY 

P73=G 

P?4=S 

A=P+5 

PRINT"WAIT. «…«" 

FOR N=A TO E 

IN=0 

NEXT N 

PEND 


PROC HOOFD 
PRINT$12" CHAREGOD""’ 
PEND 


PROE INFO 

HOOFD 

PRINT"FIRST CHARACTER IS """,SF," 
PRINT"LAST CHARACTER IS „$L,” 
PRINT“X RESOLUTION "‚X," PIXELS" 
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59 
628 
&18 
628 
638 
645 
&58 
668 
670 
680 
698 
708 
718 
728 
750 
740 
754 
740 
770 
788 
73 
800 
810 
820 
859 
849 
850 
B6@ 
878 
B88 
890 
sa 
918 
920 
950 
340 
950 
360 
978 
980 


NIEUWS 





PRINT“Y RESOLUTION “‚Y,‚* PIXELS" 
PRINT"USING * 

CASE D OF 

<1) PRINT*NORMAL" 

<2> PRINT*DUAL* 

CEND 

PRINT” DENSITY*" 

PRINT’“CHARCOD TABLE STARTS AT *,&P' 
PRINT"END OF CHARCDD TABLE AT "‚KC#Y/7#5RX'" 
PEND 


PROC PUNTPLOT,B 

B=Z? (V+U/7EX) 

COLOUR (2- (BELL (6-WA7}) €50) 
PLOT 15, (V+2) , (&1-W) 

PEND 


PROC CROSS 

PLOT 13,8, (61-W) 
PLOT 13, (X+3), (&1-W) 
PLOT 15, (V+2),65 
PLOT 13, (V+2), (68-Y) 
PEND 


PROC BLANK 
PUNTPLOT 
COLOUR 0 
CROSS 

PEND 


PROC CDDE 

VzABS (VXX) 

W=AB5 (WXY) 

COLOUR @ 

PLDT 13, (V+2), (&1-W) 

IF J=® GOTO c 

B=Z+V4W/7&X 

XIF 1 THEN ?B=?BiLL (6-W47) 
ELSE ?B=7B&(127-LL (&-/ 
PUNTPLOT 





SYBcCOLOUR 1 


1908 
1818 
1828 
1050 
1848 
1058 
1868 
1070 
1080 
1098 
1180 
1110 
1120 
1150 
1148 
1158 
1160 
1178 
11809 


CROSS 
PEND 


REM HOOFDPRDGR 
€=5 
P=#2800; REM ORIGIN 


L=ti6D ; REM LENGTH 

P=P+L 

HOOFD 

PRINT"USING OLD TABLE ? {Y/N)" 
INKEY A 

IF A=CH"N" THEN INVOER 

C=P+5 

X=P71j YEP224127#7; S=IP 


F=P?3; LeF+S-1; D=1+P?2/128 
DIM LL(&), Z(X8Y/7) 

FOR N=0 TO 6 

LLN=#{22N+,5) 

NEXT N 
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INFO 
Do 
Do 
PRINT “READ CHARACTER? * 
INKEY R 
PRINT" "ee gp, veen 

UNTIL Rò=F AND Ré=L 
KeR-F 

FOR N=0 TO Y/7-t 

FOR M=B TO X-1 

ZP (MEKEN)=C? (MAKEK+SEKEN) 
NEXT M 

NEXT N 

CLEAR D 

COLOUR d 

FOR N=@ TO Y/7-1 

FOR M=0 TO X-1 
B=Z7(M+XeN) 

FOR G=8 TO 6 

COLOUR (2- (BELLES 0) } 
PLOT 15, (M42) , (55-N&7+6) 
NEXT 6 

NEXT M 

NEXT N 
V=0jW=D; J=D; I=! 
COLOUR 1 

DO 

CROSS 

INKEY 4 

CASE A OF 
<CH"/*> BLANK; V: 
<CH"?*> BLANK; V: 
SCH"\"> BLANK; V: 
<CH*I“> BLANK; V: 
<CH"A"> BLANK; W: 
<CH"Z*> BLANK; Wel 
<CH","> BLANK; V=V-1; CODE 
SCH", "> BLANK; V=Ve tl; CODE 
<CH"S"> J=ijl=l 

SEH"C*) J 





CEND 

UNTIL A=CH"O" 

HOOFD 

PRINT"READ *"", SR, tene: 

Do 

PRINT"WRITE? * 

INKEY W 

PRINT “et, Sil tener 

UNTIL WoeF AND Wé=l 

K=l-F 

FOR N=8 TO Y/7-1 

FOR M=D TO X-1 1768 INKEY A 
CA OMEKEXESEKEND E22 NEKEN) 1778 PRINT’ 
NEXT M 1780 UNTIL A=CH"N" 
NEXT N 1798 INFO 


PRINT “CONTINUE ? (YAN)" 1828 END 


INTIKKEN EN RUNNEN MAAR 
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18CLEARD;P. $59 

2aP.$21 

SODIMLL7;D=# 3000) Cer#BEOG; B=#BI0L 
40F ‚Na {TO2; DIMP-1 


set 
6E: LLO LDAEF 
78 STA C 


89:LL1 LDXEO 
9@:LL2 LDAB 
108 AND@1 
110 BNE LL2 
128:LL5 LDA B 


258 BNE LL4 
268 LDAe@ 

278 STA C 
288:LL? RTS 

2901 

SEON, 

310P. 86 

320605.s 

S38LINK LLO 
34GCLEAR4 
SSOMDVEB, 28 
360F.X=8T0255 5,5 
37ODRAWXHS5) , CX/52D) 


158 STA D‚X SBON. 
140 INX 30 .N=QTO1083 WAIT; N, 
158 BNE LLS 4906. 320 
168 LDxe8 41ÖSCLEARB;P. $50 
170sLL4 LDA D,X 420P.* BEEREEMENDEREN EERDE NEN" 
188 ANDE1 438P, * #KOP VAN JUT PROGRAMMA#" 
198 BNE LLS 440P.* * MEP NA HET PIEPJE « 
200 LDA&20 458P. * * OP DE SPATIE-BALK #" 
218 JAP LL& 4&DP." ERRERERKENERNEREEEN EREN 
220:LL5 LDAE169 470P. * tedsofte”” 
25@:LLé STA D‚X 480P, $7 
240 INX S9ORETURN 
18 PROGRAM QUEEN'S PROBLEM 
28 
38 FUNCTION ACHT 
48 ACHT = B 
58 FEND 
68 
78 FUNCTION FREE(I,J),K‚F 
88 F = TRUE 
98 Ket -1 
180 WHILE K >= 1 AND F 
118 Fm CAALKISDS AND AACK)-JCODK-T AND AA(K) JSD I-K) 
120 Kek e- 1 
130 WEND 
148 FREE = F 
158 FEND 
168 
178 PROC DAME(I) ,J 
189 FOR J=t TO ACHT 
198 AACI = J 
208 IF FREE(I,J) THEN XIF I = ACHT THEN WRITE 
218 ELSE DAME (I+1} 
220 NEXT J 
230 PEND 
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250 PROC URITE,I,J,8,Z 


268 
276 
280 
290 
500 
318 
528 
558 
540 
350 
360 
570 
388 
520 
400 
410 
420 
430 
440 
450 
468 
470 
488 
490 
500 
518 
520 
530 
548 
550 
560 
570 
588 
598 
685 
618 
628 
650 
648 
é5a 
660 
670 
689 
&70 
700 
710 
TA 


ë= 3 
PRINT 
PRINT 


$12 
"EEN OPLOSSING VAN HET PROBLEEM: 


VTAB 3 


PRINT 


FOR J= 


NO": « 
1 TO ACHT 


PRINT AAJ) 


NEXT J 


VTAB 5 
Z = ODD (ACHT) 


FOR I= 


FOR 


1 TO ACHT 
J=1 TO ACHT 


KIF AA(I)=J THEN PRINT $#51+(EVEN(Z) #20) 


z 


ELSE PRINT $#80+(ODD (2) ##20) 
=Z+t 


NEXT J 
PRINT ' 


1= 


NEXT I 


N= N 
INKEY 
PEND 


2 + EVEN(ACHT) 


+1 
€ 


PROC UITLEG,X 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


$12 

“HET IS MOGELIJK OM OP EEN" 
“SCHAAKBORD ACHT DAMES UIT" 

"HET SCHAAKSPEL TE PLAATSEN," 
“ZODANIG DAT ZE ELKAAR NIET" 
"KUNNEN BEREIKEN. ** 

“DIT HOUDT DUS G.A. IN DAT ER"' 
"GEEN TWEE DAMES OP DEZELFDE RIJ"* 
“KOLOM DF DIAGONAAL KUNNEN VOOR-"" 
“KOMEN. ** 

“DIT PROGRAMMA BEREKENT STUK" 
“VOOR STUK ALLE MOGELIJKE COMBI-"' 
“NATIES WAARVOOR DIT GELDT. "* 


REM VERTAALD UIT EEN ALGOL-68 PROGRAMMA 


INKEY 
PEND 


REM MAIN 


X 


DIM AACACHT) 


UITLEG 
N= it 
DAME (1) 
END 
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18CLEARS 1820N! #8d=8EDDO 

20IN. "SNELHEID (1-4)“S5jNe={2/6 18SON! SAD=tEBIO 
SOCLEAR4 1048N! €CB=4DA0E 

40F , Me88ABATOHI6ES 1850! #EC=#DAOE 
520M1#43=#6458 1040N|#180=84000 
530M:#6Bet 0010 1670M| 4120450800 

54GMI 4632408558 19801 #140=24#5000 

SSM #AG=#BISE 1078M! #169=#8820 

S6BMI €CO=#0054 1189M! 8183249000 

570M1 kEGe#0072 1110M!#1A0=€A0D0 
50OM:#100=#2010 1120M!#1C02#9000 

SIM #120=80010 1150M141E8=ICHOE; GOS. w 
620M1 #140=40028 11481 M=#3800 
610M1#160=#8028 1150M | #20=#3000 
620M! #180=83044 1160! #48<43800 

GIENI #1AG=RIB44 1178M 4óQ=#1 020 

648M 1 #1CO=#0082 1180M! #80=#5800 

6SOMI H1EG=RIDCS; GOS. w 1190MI #AG=# 5000 

46E !M=#89D7 1240 4CO=45400 

&70NI #20248207 1210M | #EQ=45409 

680M | #40=88307 1220M:#188=#1002 

&7ON! 6049802 1232M1#120=41800 

7U0N! 4602480887 1240M!#140e01 400 

719M! #AD=#0007 1250M!#160=#2200 

720M! #CE=#0DAB 1260M 1419982400 
750M|#EU=#00A7 1270Mt#1AO=84408 

740M| 4108245302 1280Mi#1C2=#8402 
750M!#120=#0902 1270M!#1E0=4COED; GOS. w 
760MI 41408002 138N. ;G. 100 

77041 #168=40405 1318wF.Az1TONsWAITSN. sR. 


780N!# 18340009 
790N 14 LAG=#E007 
BEAN 41CA=#AÖ1 1 
B10MI ILES=RBDAN) GOE. w 
820 !M2#8403 
BION! #24=#8905 
B40M! 1402480035 
BSAN! #60=400B1 
860M! W30=#000S 
B74n! #AQ=#8005 
B89MI#CB=#8003 
BOM #ED=#BDAT 
OEM! #1B0=#090 1 
P10M! 12040901 
G2ON! 0140240001 
PSOM!#160=4000F 
F40M!410De80D1 1 
FSM! H1AE=ROEDT 
J6ON!41CA=E0AA 1 
ITOMIAIEG=REOO1 ; GOS. w 
980 IMe8EO0 
99AN! #20=4EBOD 
1000! #40=#EGAR 
101ONIEGOn 4008 


ilt U lid worden van de ACORN GUMPUTER CLUB. 


Neem dan contact op met de penningmeester van de regio waar U bij ingedeeld wilt 
regiobijeenkomsten zijn en wat U als lid 


worden. Hij kan U vertellen, waar de 
kunt verwachten. 


Regio NOORD: 
D, Uuldriks Wiemers 14 


Regio OVERIJSSEL/GELDERLAND: 
G.J, Noordland Pr. Ireneweg 4 


Regío TWENTE: 
W. Verhoeven Witbreuksweg 577-405 


Regio NOORDHOLLAND: 
P‚, van Kuik Zuideinde 54-a 


Regio DEN HAAG: 
R.Tiel Vredeoord 96 


Regio DELFT: 
P, van Alphen H‚ v. Delftlaan 350 


Regio ROTTERDAM: 
R de Haan Brasem 125 


Regio CENTRUM: 
P van Mourik Ruiterstede 68 


Regio ARNHEM: 
J. Hartog Keyenbergseweg 60 


Regio ZEELAND: 
E. Bijssel Dorpsstraat 86 


Regio BRABANT-OOST: 
P, Ehrlich Roostenlaan 266 


Regio LIMBURG: 
A.van Zandvoort Mozartstraat 328 


Regio BELGIE: 
R.Leyssens Oude Baan 127 


9642 KG 


7455 DE 


7522 ZA 


1843 JP 


2544 TZ 


2613 BN 


2986 HA 


5451 XN 


6871 WK 


4à24 CZ 


54644 BS 


6044 RS 


3550 


Veendam 


Schalkhaar 


Enschede 


Groot-Schermer 


Den Haag 


Delft 


Ridderkerk 


Nieuwegein 


Renkum 


Wemeldinge 


Eindhoven 


Roer mond 


Heusden Belgie 


25987-19611 


85708-25294 


955 337826 
02997-1982 

279 -294170 
815 -122817 


01804-25168 


05402-48781 


08373-13757 


01192-19086 


DAB 144183 


04758-21797 


